Cod sursa(job #345901)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 5 septembrie 2009 13:44:04
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
program pcif;
var  i,p,q,t,k:integer;f,g:text;n,j,s:longint;
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.