Pagini recente » Cod sursa (job #402264) | Cod sursa (job #2454619) | Cod sursa (job #1177938) | Cod sursa (job #574774) | Cod sursa (job #505786)
Cod sursa(job #505786)
var
f,g:text;
s:string;
j,sol,t,i,nr:longint;
er:integer;
function pow(a,n:int64):int64;
var
p:int64;
begin
p:=1;
while n<>0 do
begin
if n mod 2=1 then p:=p*a;
a:=a*a;
n:=n div 2;
end;
pow:=p;
end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,s);
val(s[length(s)],nr,er);
sol:=0;
for j:=1 to nr do
sol:=sol+pow(j,j);
writeln(g,sol mod 10);
end;
close(f);close(g);
end.