Cod sursa(job #969595)
| Utilizator |  Sevestrean Vasile sevestreanalin |
Data | 4 iulie 2013 18:52:35 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var f,g:text;
p,n,j,a:longint;
ok:boolean;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
while ok do
begin
n:=n+1;a:=n;
while a mod 5=0 do
begin
a:=a div 5;
j:=j+1;
end;
if j=p then
ok:=false;
end;
write(g,n);
close(g);
end.