Cod sursa(job #146558)

Utilizator radupointMircea Radu-Viorel radupoint Data 1 martie 2008 21:32:25
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
program uc;
 var
    f,g:text;
    n,i,j,k,s,p,x:longint;
begin
 assign(f,'cifra.in');
 reset(f);
  read(f,n);
          assign(g,'cifra.out');
          rewrite(g);
          for k:=1 to n do
           begin
                readln(f,x);
                s:=0;
            for i:=1 to x do
             begin
                   p:=1;
                    for j:=1 to i do
                     p:=p*i;
                    s:=s+p;
                    s:=s mod 10;
             end;
            writeln(g,s);
           end;
  close(f);
 close(g);
end.