Question

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

Answer 1

program prim;

var a,b:real;

begin

writeln('Введите 2 числа: ');

read(a,b);

if a>b then writeln('Большее число = ', a)

else writeln('Большее число = ', b);

end.

( На самом деле это очень легко) )

Answer 2

Для того чтобы написать программу на Паскале, которая определит наибольшее число из двух, можно использовать следующий код:

pascalCopy code
program MaxNumber;

var
  num1, num2, maxNumber: integer;

begin
  writeln('Введите первое число: ');
  readln(num1);

  writeln('Введите второе число: ');
  readln(num2);

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

  writeln('Наибольшее число: ', maxNumber);
end.

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