Написать программу для определения большего числа из 3 вводимых чисел

Question

Информатика

Света

28 ноября, 22:30

Написать программу для определения большего числа из 3 вводимых чисел

+5

Ответы (1)

Знаете ответ на вопрос?

Петруха · Answer 1

Var a1, a2, a3, max: integer;

begin

write ('Введите три числа: ') ;

readln (a1, a2, a3) ;

if a1 > = a2 then max : = a1 else max : = a2;

if a3 > max then max : = a3;

writeln ('Максимальное из них: ', max) ; readln

end.