Question

Задание 1. Составить алгоритм, определяющий максимальное значение из 2-х целых чисел.

алг максимум

нач цел а, в, mах

вывод “введите два целых числа”

ввод а, в

если а>в

mах:=а

иначе mах:=в

все

вывод mах

кон

Answer 1

program maximum;

var a,b,max: integer;

begin

 writeln('Введите два целых числа');

 read(a,b);

 if a > b then max:= a

   else max:= b;

 writeln(max);

end.

PascalABC