Cod sursa(job #292298)

Utilizator inlinestunter19Aab Bba inlinestunter19 Data 30 martie 2009 23:07:37
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var p,n,c,fact:int64; i:longint; f,g:text;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out'); rewrite(g);
read(f,p);
fact:=1;
n:=10 shl 2;
c:=10 shl (p-1);
if p=0 then
write(g,1)
else
 begin
 for i:=1 to n do
 begin
 fact:=fact*i;
 if (fact mod c)=0 then
 write(g,n);
 end;
 end;
close(f); close(g);
end.