Используя тип данных массив, напишите программу, которая реализует алгоритм Эратосфена для вычисления простых чисел, меньших заданного n (n=<200)

1

Ответы и объяснения

2013-11-20T20:45:08+04:00
const N=200;   var a : array [1..N] of boolean; x,y,kol : integer;     begin a[1] := true; for x:=2 to N do a[x] := true;   for x:= 2 to N div 2 do for y:= 2 to N div x do a[x*y] := false;   kol:=1; for x:= 100000 to 100330 do if a[x] then begin        writeln('x[',kol,']= ',x);//выводим данные в столбец        inc(kol);        end; readln; end.