Cod sursa(job #159562)

Utilizator m_petrean0264Petrean Mircea Petru m_petrean0264 Data 14 martie 2008 11:15:22
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
var n,m,t,i:integer;
    f,g:text;
function p(n,m:integer):longint;
 begin
  if m=0 then p:=1
         else p:=n*p(n,m-1);
 end;
function suma (n:integer):longint;
begin
 if n=0 then suma:=0
        else suma:=p(n,n)+suma(n-1);
 end;
begin
 assign (f,'cifra.in');
 assign (g,'cifra.out');
 reset (f);
 readln (f,t);
 rewrite (g);
 for i:=1 to t do begin
  readln (f,n); writeln (g,suma(n) mod 10);
 end;
 close (f);
 close (g);
end.