1. Составьте программу, определяющую максимальное из всех вводимых вами
чисел. Концом ввода чисел является введенное число 0.
Важно!!!- нужно сделать через for или while!
Ответы
Ответ дал:
0
Я так полагаю, что это паскаль. Через while будет попроще это сделать.
Var
a,b:real;
Begin
read(a);
b:=a;
while a<>0 do begin
read(a);
if a>b then b:=a;
end;
writeln(b);
end.
Var
a,b:real;
Begin
read(a);
b:=a;
while a<>0 do begin
read(a);
if a>b then b:=a;
end;
writeln(b);
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад