Предмет: Информатика, автор: mnp28847

Pascal / Вводится последовательность натуральных чисел. Вывести максимальное простое число из последовательности.

Ответы

Автор ответа: s1veme
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
Похожие вопросы
Предмет: Биология, автор: лили561