Паскаль. Найти max из 3-х чисел

Question

Информатика

Миленка

26 декабря, 00:36

Паскаль. Найти max из 3-х чисел

+1

Ответы (1)

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

Агафия · Answer 1

Uses crt;

var a, b, c, max: integer;

begin

readln (a, b, c) ;

writeln (a, ' ', b, ' ', c) ;

max : = a;

if max < b then max : = b;

if max < c then max : = c;

writeln ('max = ', max) ;

end.