Найдите наибольшее из трех данных чисел (paskal abc)

Question

Информатика

Леонинка

15 августа, 04:15

Найдите наибольшее из трех данных чисел (paskal abc)

+5

Ответы (1)

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

Глафира · Answer 1

Var a, b, c:integer;

begin;

readln (a) ;

readln (b) ;

readln (c) ;

if (a>b) and (a>c) then writeln (a) ;

if (b>a) and (b>c) then writeln (b) ;

if (c>a) and (c>b) then writeln (c) ;

end.