Cod sursa(job #569040)
| Utilizator |  Stern Vlad sternvlad |
Data | 31 martie 2011 21:55:33 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program das;
var n,i,j:longint;
f,g:text;
s:word;
begin
assign (f,'fact.in');
reset (f);
read (f,n);
i:=0;
s:=0;
while s<>n do begin
i:=i+5;
j:=i;
while j mod 5=0 do begin s:=s+1;
j:=j div 5;
end;
end;
assign (g,'fact.out');
rewrite (g);
write (g,i);
close (g);
end.
