Question

Дана непустая последовательность натуральных чисел, за которой следует 0. Вывести на экран все простые числа данной последовательности (простым называется число, которое имеет только 2 делителя-1 и само себя).

Answer 1

program raf105;

var

 a: array[1..100] of integer;

 i,n,c: integer;

 x: boolean;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 x:= True;

 readln(n);

 for i:=2 to n-1 do

   if (n mod i = 0) and (n <> 0)

     then x:= False;

 if x and (n <> 0)

   then begin

     c:= c+1;

     a[c]:= n;

   end;

until n = 0;

write('Простые числа: ');

for i:=1 to c do

 write(a[i],' ');

end.

PascalABC 3.4.2