Question

Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1,14085 и 2,1327.

Answer 1

Ответ:

program dz;

Var

a,b:real;

begin

a:= 1.14085;

b:= 2.1327;

If a>b then write (a);

If b>a then write (b);

end.

Answer 2

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

pascalCopy code
program MaxNumber;

var
  num1, num2, maxNumber: real;

begin
  num1 := 1.14085;
  num2 := 2.1327;

  if num1 > num2 then
    maxNumber := num1
  else
    maxNumber := num2;

  writeln('Максимальное число: ', maxNumber);
end.

Помимо этого, вы можете изменять значения переменных num1 и num2, чтобы проверить программу для других чисел.