Гончаренко
4 год назад
Напишите программу (Pascal) , которая находит наибольшее из четырех целых чисел и выводит его на экран.
ОТВЕТЫ
Тодора
Oct 24, 2020
var a,b,c,d: integer;
begin
readln(a,b,c,d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln('максимальное число: ',a);
end.
15 -4 17 16
максимальное число: 17
begin
readln(a,b,c,d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln('максимальное число: ',a);
end.
15 -4 17 16
максимальное число: 17
315
Смежные вопросы: