Cod sursa(job #561761)

Utilizator sergiu.apostulApostul Sergiu sergiu.apostul Data 21 martie 2011 16:06:14
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
program cifra;
var n,t,j,i,s,s1,k:longint;
    f,g:text;
 begin
  assign(f,'cifra.in');
  reset(f);
  readln(f,t);
  assign(g,'cifra.out');
  rewrite(g);
  for i:=1 to t do
   begin
    readln(f,n);
    for j:=1 to n do
     begin
      s1:=1;
      for k:=1 to j do
       s1:=s1*j;
      s:=s+s1;
     end;
    writeln(g,s mod 10);
    s:=0;
   end;
  close(f);
  close(g);
 end.