Cod sursa(job #1033207)

Utilizator ValeraShulghin Valera Valera Data 16 noiembrie 2013 16:31:15
Problema Ciurul lui Eratosthenes Scor 0
Compilator fpc Status done
Runda cei_mici3 Marime 0.39 kb
var a:array[1..100] of integer;
    i,j,n,k:integer;
    f,g:text;
begin
assign(f,'ciur.in');reset(f);
assign(g,'ciur.out');rewrite(g);
readln(f,n);
for i:=2 to n do
  a[i]:=1;
for i:=2 to n do
  if a[i]=1 then
    begin
      k:=k+1;
      j:=i+i;
      repeat
        a[j]:=0;
        j:=j+i;
      until j>n;
    end;

for i:=1 to n do
write(g,a[i],' ');
close(f);close(g);
end.