Cod sursa(job #322076)

Utilizator KickYourAssPopescu Gabriel KickYourAss Data 8 iunie 2009 00:33:05
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var
 i,s,n,j,k,d:longint;
 f,g:text;
begin
 assign(f,'cifra.in');
 reset(f);
 read(f,n);
 close(f);
 k:=1;
 repeat
  d:=1;
  for I:=1 to k do
   d:=d*k;
  s:=s+d;
  k:=k+1;
 until (k>n);
 assign(g,'cifra.out');
 rewrite(g);
 write(g,s mod 10);
 close(g);
 write(s);
end.