Cod sursa(job #557601)
Utilizator | 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.