Cod sursa(job #308921)
| Utilizator |  Birsan Dragos hominidu |
Data | 28 aprilie 2009 21:32:43 |
|---|---|---|---|
| Problema | Ciurul lui Eratosthenes | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.27 kb |
var g,f:text;
ct,n,i:longint;
BEGIN
assign(f,'ciur.in');
reset(f);
readln(f,n);
close(f);
ct:=0;
for i:=1 to n do
if n mod i = 0 then ct:=ct+1;
assign(g,'ciur.out');
rewrite(g);
if ct = 0 then
writeln(g,'-1')
else
writeln(g,ct);
close(g);
END.
