Cod sursa(job #557601)

Utilizator momeumMomeu Marius momeum Data 16 martie 2011 18:42:52
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.73 kb
var
        n,i,s,t,j,cop,k:longint;
        fin,fout:text;
begin

        assign(fin,'cifra.in');
        reset(fin);
        assign(fout,'cifra.out');
        rewrite(fout);

        readln(fin,t);

        for i:=1 to t do
        begin
                readln(fin,n);
                s:=0;
                for j:=1 to n do
                begin
                        cop:=j;
                        begin
                                for k:=1 to j do
                                        cop:=cop*cop;
                                s:=s+cop;
                        end;
                end;
                writeln(fout,s mod 10);
        end;

        close(fin);
        close(fout);

end.