Question

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

Answer 1

Ответ:

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.

Объяснение: