Cod sursa(job #345899)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 5 septembrie 2009 13:40:01
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
program pcif;
var  s,i,j,p,q,n,t,k:longint;f,g:text;
begin
    assign(f,'cifra.in');reset(f);
    assign(g,'cifra.out');rewrite(g);
     readln(f,t);
     for i:=1 to t do begin
      readln(f,n); s:=0;
      for j:=1 to n  do begin
      q:=j;
       for p:=1 to j-1 do
       q:=q*j;s:=s+q;
       end;writeln(g,s mod 10);
       end;close(f);close(g); 
       end.