Cod sursa(job #527396)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 31 ianuarie 2011 13:48:45
Problema Factorial Scor 85
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var     a:array[1..20] of int64;
        p,n:int64;
        i,j:integer;
        f:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);

a[1]:=6;
for i:=2 to 20 do
  a[i]:=a[i-1]*5+1;

for i:=20 downto 1 do
  p:=p-(p div a[i]);

n:=p*5;

assign(f,'fact.out');
rewrite(f);

write(f,n);
close(f);
end.