Cod sursa(job #146570)

Utilizator radupointMircea Radu-Viorel radupoint Data 1 martie 2008 21:43:49
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
program uc;
 var
    f,g:text;
    n,i,j,k,s,p:longint;
    t:word;
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,t);
                s:=0;
            for i:=1 to t 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.