Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наибольшего) из введёных чисел.Используйте оператор repeat. Решить в паскале.
Ответы
Ответ дал:
0
var a,m:integer;
begin
write('Введите число: ');
readln(a);
m:=a;
repeat
if a>m then m:=a;
write('Введите число: ');
readln(a)
until a=0;
writeln('Максимальное (наибольшее) из введёных чисел: ',m)
end.
begin
write('Введите число: ');
readln(a);
m:=a;
repeat
if a>m then m:=a;
write('Введите число: ');
readln(a)
until a=0;
writeln('Максимальное (наибольшее) из введёных чисел: ',m)
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад