Question

Вводятся два числа не равные 0 вывести наибольшее паскаль

Answer 1

Begin
var (a,b):=ReadInteger;
if a>b then write(a) else write(b);
end.

Answer 2

Если числа целые:

program n;
var
a,b: integer;
begin
readln(a);
readln(b);
if a>b then
write(a)
else write(b);
end.

Если предполагается ввод нецелых чисел, то в объявление переменных (var a,b: integer;) надо поменять integer на real.

Answer 3

Чтобы найти наибольшее из двух чисел в Паскале, можно использовать условную конструкцию if-then-else. Вот пример кода на языке Паскаль:

pascalCopy code
program Наибольшее_число;
var
  число1, число2, наибольшее: Integer;
begin
  writeln('Введите первое число:');
  readln(число1);
  
  writeln('Введите второе число:');
  readln(число2);
  
  if число1 > число2 then
    наибольшее := число1
  else
    наибольшее := число2;
  
  writeln('Наибольшее число: ', наибольшее);
end.

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