Составить программу нахождения максимального из четырёх чисел, вводимых с клавиатуры.

Question

Информатика

Наталия

9 мая, 14:08

Составить программу нахождения максимального из четырёх чисел, вводимых с клавиатуры.

+4

Ответы (1)

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

Ивон · Answer 1

Var

A, B, C, D:integer;

Begin

Write ('Введите четыре целых числа: ') ; ReadLn (A, B, C, D) ;

if A < B then A:=B;

if A < C then A:=C;

if A < D then A:=D;

WriteLn ('Max = ', A) ;

End.