Pagini recente » Cod sursa (job #2156945) | Cod sursa (job #2485576) | Cod sursa (job #1972084) | Cod sursa (job #1639802) | Cod sursa (job #2019809)
Program Cifra;
var t:1..30000;
i,s,l,x,j,k:byte;
code:word;
nr:longint;
f,g:text;
function pow(n,p:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to p do begin
s:= s * n;
s:= s mod 10;
end;
pow:=s;
end;
begin
//assign(f,'cifra.in');assign(g,'cifra.out');
//reset(f);rewrite(g);
readln({f,}t);
for j:=1 to t do begin
readln({f,}nr);
{l:=length(nr);
for k:=1 to l do begin
val(nr[k],x,code);
x:= x * 10;
end;
x:= x div 10;}
s:=0;
for i:=1 to nr do begin
s:= s + pow(i,i);
s:= s mod 10;
end;
writeln({g,}s);
end;
//close(f);close(g);
end.