Cod sursa(job #359289)

Utilizator mircea98roMircea Popovici mircea98ro Data 26 octombrie 2009 15:10:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
var d,n,t,u,s,i,j,h:longint;
f,g:text;
begin
     assign(f,'cifra.in');reset(f);
     assign(g,'cifra.out');rewrite(g);
     read(f,t);
     for i:=1 to t do begin read(f,n);
     s:=0;
     for j:=1 to n do begin d:=1;
     for h:=1 to j do
     d:=d*j;
     s:=s+d;
     end;u:=s mod 10;writeln(g,u);
     end;
     writeln(g);
     close(f);
     close(g);
end.