Cod sursa(job #2062840)

Utilizator iandavidroIan David Bocioaca iandavidro Data 10 noiembrie 2017 21:26:28
Problema Cifra Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.55 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.