Дистанционная подготовка: ещкере
ещкере
от Ростислав Юдин - Пятница 31 Январь 2020, 08:31
112450. Решето Эратосфена
  Var
A,N,d,w:integer;
Begin
ReadLn(N);
write (2,' ');
For w:= 2 to N do
Begin
d:=0;
A:=2;
Repeat
if w mod A=0 then d:=d+1;
A:=A+1
Until A>Sqrt(w)+1;
if d=0 then
Write(w,' ');
End
End.