Cod sursa(job #292296)
| Utilizator |  Birsan Dragos hominidu |
Data | 30 martie 2009 23:00:26 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var f,g:text;
ct,i,p,a:int64;
BEGIN
assign(f,'fact.in');
reset(f);
read(f,a);
close(f);
ct:=0;
p:=1;
i:=0;
repeat
i:=i+1;
p:=((p mod 10)* i mod 10) mod 10;
if p = 0 then
begin
ct:=ct+1;
p:=1;
end;
until ct = a;
assign(g,'fact.out');
rewrite(g);
writeln(g,i);
close(g);
END.
