Question

Написать программа в паскаль: Ввести 2 числа вычислить из большего меньшее Помогите пожалуйста

Answer 1

Первый вариант:

Var
   a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.

Второй вариант:

Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.

Answer 2

Вот пример программы на языке Pascal, которая позволяет ввести два числа и вычислить из них большее и меньшее:

program CompareNumbers;
var
  num1, num2, max, min: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  
  if num1 > num2 then
  begin
    max := num1;
    min := num2;
  end
  else
  begin
    max := num2;
    min := num1;
  end;
  
  writeln('Наибольшее число: ', max);
  writeln('Наименьшее число: ', min);
end.

В этой программе мы используем переменные `num1` и `num2` для хранения введенных чисел. Затем мы сравниваем эти числа с помощью условного оператора `if-else`. Если `num1` больше `num2`, то `max` присваивается значение `num1`, а `min` - значение `num2`. В противном случае, `max` присваивается значение `num2`, а `min` - значение `num1`. Затем мы выводим результаты с помощью процедуры `writeln`.

Примечание: Программа предполагает, что пользователь будет вводить только целые числа. Если вам нужно обрабатывать числа с плавающей запятой, вам следует использовать тип `real` вместо `integer`.

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