Cod sursa(job #344824)
Utilizator | Data | 31 august 2009 18:38:06 | |
---|---|---|---|
Problema | Factorial | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
program fact;
var p,n1,zero,n:longint;f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);zero:=1;n:=1;
repeat
p:=p-1;
zero:=zero*10;
until p=0;
while p=0 do begin
inc(n1);
n:=n*n1;
if n div zero*zero=n then begin
p:=1;writeln(g,n1);
end;
end;
close(f);close(g);
end.