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

Question

Викта

10 мая, 20:03

+4

Ответы (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.