Найдите max из 3 чисел, введенных с клавиатуры pascal

Question

Информатика

Тарасия

12 ноября, 18:15

Найдите max из 3 чисел, введенных с клавиатуры pascal

+5

Ответы (1)

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

Римма · Answer 1

Var a, b, c, max:integer;

begin

readln (a) ;

readln (b) ;

readln (c) ;

if (a=b) and (a=c) then writeln ('все числа одинаковые') else begin

if (a>=b) and (a>=c) then max:=a;

if (b>=a) and (b>=c) then max:=b;

if (c>=b) and (c>=a) then max:=c;

writeln (max) ;

end;

end.