Question

ПОМОГИТЕЕЕ!!!!!!!!!!!!!!!!!!!!ОЧЕНЬ СРОЧНО ДАМ 100 БАЛЛОВ. РЕШИТЬ ЧЕРЕЗ PASKAL Даны два числа m и n. Если первое число меньше второго, то вывести х*у, иначе вывести х-у

Answer 1

Ответ:

program z1;

var m,n:integer;

begin

write('m = ');

readln (m);

write('n = ');

readln (n);

if m<n then write (m,' * ',n,' = ',m*n)

else write (m,' - ',n,' = ',m-n)

end.

Answer 2

Конечно, я могу помочь вам с этой задачей! Вот пример решения на языке Pascal:

pascalCopy code
program CompareNumbers;
var
  m, n, result: integer;
begin
  write('Введите первое число (m): ');
  readln(m);
  
  write('Введите второе число (n): ');
  readln(n);
  
  if m < n then
    result := m * n
  else
    result := m - n;
  
  writeln('Результат: ', result);
end.

В этом примере мы сначала считываем два числа m и n с помощью функции readln. Затем сравниваем их в условной конструкции if. Если m меньше n, то умножаем их и сохраняем результат в переменной result. В противном случае, вычитаем n из m и также сохраняем результат в result. Наконец, выводим значение result с помощью функции writeln.

Надеюсь, это решение поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.