Предмет: Информатика,
автор: faerlessness
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.Используйте оператор while. Решить в паскале.
Ответы
Автор ответа:
0
var
n,max:Integer;
Begin
max:=1;
n:=1;
While(n<>0) do
begin
Read(n);
if (n>max) then max:=n;
end;
Writeln('Max number = ',max);
end.
n,max:Integer;
Begin
max:=1;
n:=1;
While(n<>0) do
begin
Read(n);
if (n>max) then max:=n;
end;
Writeln('Max number = ',max);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: janarusmankulova
Предмет: Литература,
автор: Alexkozh28
Предмет: Обществознание,
автор: eva12talalaeva2017
Предмет: Математика,
автор: Аноним