Cod sursa(job #2108831)

Utilizator Adrian.302qaz wsx Adrian.302 Data 18 ianuarie 2018 20:56:50
Problema Ciurul lui Eratosthenes Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.77 kb
Program Ciurul;
               uses crt;
               var i, j : longint;
                   a : array[1..200000] of longint;
                   n, nr : longint;
                   fi, fo : text;
begin clrscr;
             assign(fi,'ciur.in'); reset(fi);
             assign(fo,'ciur.out'); rewrite(fo);
             read(fi,n);
             for i:=2 to n do begin
                                   if a[i]=0 then begin
                                                     write(fo,i,' ');
                                                     NR:=NR+1;
              for j:=2 to n do begin
                                   if i*j>n then break else a[i*j]:=1;
                               end;
                     end;
             end;
    close(fo);
end.