Cod sursa(job #561364)

Utilizator pkarolaPleth Karola pkarola Data 19 martie 2011 22:50:47
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program szamol;
var n,t,i,j,c,b,s,hatv:word;
    f,g:text;
begin
 assign(f,'cifra.in'); assign(g,'cifra.out');
 reset(f); rewrite(g);
 readln(f,t);
 for i:=1 to t do
   begin
    s:=0;
    readln(f,n);
    for j:=1 to n do
     begin
      hatv:=1;
      for c:=1 to j do
       hatv:=hatv*j;
      s:=s+hatv;
     end;
    b:=s mod 10;
    writeln(g,b);
   end;
 close(f); close(g);
end.