Напишите программу, которая находит наибольшее из четырех целых чисел и выводит его на экран.

Question

Информатика

Миронка

26 мая, 11:53

Напишите программу, которая находит наибольшее из четырех целых чисел и выводит его на экран.

+5

Ответы (1)

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

Козьмич · Answer 1

uses crt;

var a1, a2, a3, a4, max: integer;

begin write ('Введите четыре числа: ') ;

readln (a1, a2, a3, a4) ;

if a1 > = a2 then

max : = a1 else

max : = a2;

if a3 > max then

max : = a3;

if a4 > max then

max:=a4;

writeln ('Максимальное число - : ', max) ;

readln

end.