Составте программу нахождения максимального из четырёх чисел a,b,c,d.
Пример ввода:
2 5 7 1
Пример вывода:
Большее из чисел равно 7
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад