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

Question

Информатика

Наталия

19 июля, 04:40

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

+2

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