Составьте программу которая находит махимальное из четырёх введенных с клавиатуры чисел a, b, c, d и выводит его на экран

Question

Эмилианыч

13 сентября, 06:42

+3

Ответы (1)

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

Евдуша · Answer 1

Var

a, b, c, d: integer;

begin

readln (a, b, c, d) ;

if a < b then a : = b;

if a < c then a : = c;

if a < d then a : = d;

writeln (a) ;

end.