Cod sursa(job #322081)

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