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

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

2 5 7 1

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

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

1

Ответы и объяснения

  • Sky09
  • профессор
2013-10-02T22:55:12+04:00
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.