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

Question

Информатика

Наталя

6 сентября, 21:07

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

+1

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