Составьте программу нахождения максимального из 4 чисел a,b,c,d
Пример ввода:
2 5 7 1
Пример вывода:
Большее из чисел равно 7
Ответы на вопрос
Ответил Impersona1
0
program naibolwee;
var a,b,c,d,max1,max2:real;
begin
Readln(a,b,c,d);
if a>b then max1:=a else max1:=b;
if c>d then max2:=c else max2:=d;
if max1>max2 then Writeln('Наибольшее число=',max1) else Writeln('Наибольшее число равно=',max2)
end.
var a,b,c,d,max1,max2:real;
begin
Readln(a,b,c,d);
if a>b then max1:=a else max1:=b;
if c>d then max2:=c else max2:=d;
if max1>max2 then Writeln('Наибольшее число=',max1) else Writeln('Наибольшее число равно=',max2)
end.
Новые вопросы
Английский язык,
2 года назад
Математика,
8 лет назад
Литература,
8 лет назад
Математика,
9 лет назад