Cod sursa(job #299545)
| Utilizator |  Birsan Dragos hominidu |
Data | 6 aprilie 2009 20:52:55 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 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+5;
p:=((p mod 10)* i mod 10) mod 10;
if p mod 5 = 0 then
begin
ct:=ct+1;
p:=1 mod 10;
end;
until ct = a;
assign(g,'fact.out');
rewrite(g);
writeln(g,i);
close(g);
END.
