Cod sursa(job #2108831)
| Utilizator | 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.
