Cod sursa(job #432178)

Utilizator autoplayerBerendea autoplayer Data 1 aprilie 2010 22:23:57
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.76 kb
var f,g : text;
    t : -1..30002;
    n, i, s2 : word;
    s1 : byte;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
rewrite(g);
reset(f);
readln(f,t);
for t:=1 to t do begin readln(f,n);
                       s1:=0;
                       for n:=1 to n do begin s2:=1;
                                              for i:=1 to n do begin s2:=s2*n;
                                                                     s2:=s2 mod 10;
                                                               end;
                                              s1:=s1+s2;
                                              s1:=s1 mod 10;
                                        end;
                       writeln(g,s1);
                 end;
close(g);
close(f);
end.