Cod sursa(job #846957)
| Utilizator |  Caliman Alexandru caliman_al |
Data | 3 ianuarie 2013 00:27:15 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var n,i,a,p,b:longint;
t:int64;
f,g:text;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
read(f,p);
t:=1;
for i:=1 to 30 do begin
t:=t*i;
a:=0;
b:=10;
while t mod b=0 do begin
a:=a+1;
b:=b*10;
end;
if a=p then begin
writeln(g,i);
break;
end;
end;
close(g);
end.
