Cod sursa(job #95477)
Utilizator | Data | 28 octombrie 2007 21:19:05 | |
---|---|---|---|
Problema | Factorial | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
var
fi, fo : text;
p : longint;
p5, n5, s, d, m : int64;
begin
assign(fi,'fact.in'); reset(fi);
assign(fo,'fact.out'); rewrite(fo);
read(fi,p);
if p > 1000 then
write(7)
else
repeat
until false;
close(fi); close(fo);
end.
1320(5) = 125 + 75 + 10 = 210
1 + 5 + 25
5
5 5 5 5 5
55555555555555555555555555 32 de factori de 5
5
555555555