Предмет: Информатика,
автор: mnp28847
Pascal / Вводится последовательность натуральных чисел. Вывести максимальное простое число из последовательности.
Ответы
Автор ответа:
0
Ответ:
var number, max:integer;
begin
writeln('Введите 0, чтобы закончить ввод');
while true do
begin
readln(number);
if number = 0 then
break;
if number > max then
max := number;
end;
writeln(max);
end.
Объяснение:
mnp28847:
Spasibo bol'shoe
Похожие вопросы
Предмет: Другие предметы,
автор: angelok2003ag
Предмет: Русский язык,
автор: ирина161
Предмет: Русский язык,
автор: ирина161
Предмет: Биология,
автор: лили561
Предмет: Английский язык,
автор: 630218237