Question

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

Answer 1

Var a,b: Real;
begin
writeln('Введите a,b');
readln(a,b);
if a>b then writeln(a);
if a<b then writeln(b);
if a=b then writeln(a,'=',b);
end.

Answer 2

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

pascalCopy code
program MaxNumber;

var
  num1, num2, maxNum: real;

begin
  num1 := 1.10555;
  num2 := 2.4629;
  
  if num1 > num2 then
    maxNum := num1
  else
    maxNum := num2;
    
  writeln('Наибольшее число: ', maxNum);
end.

Эта программа сравнивает два числа num1 и num2, и затем выводит наибольшее из них на экран. В данном случае, результатом будет число 2.4629, так как оно больше числа 1.10555.