Question

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

Пример ввода:

2 5 7 1 

Пример вывода:

Большее из чисел равно 7

 

 

 

 

 

 

 

 

Answer 1

uses crt;
var a,b,c,d:integer;
begin
writeln('Введи числа:');
read(a,b,c,d);
writeln; write('Наибольшее из введенных чисел: ');
if a<b then a:=b;
if c<d then c:=d;
if a>c then write(a) else write(c);
end.