Malargas
6 год назад
1. Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концом ввода чисел является введенное число 0. Важно!!!- нужно сделать через for или while!
ОТВЕТЫ
Богдана
Oct 24, 2020
Я так полагаю, что это паскаль. Через 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.
789
Смежные вопросы:
