Pagini recente » Cod sursa (job #588478) | Cod sursa (job #766499) | Cod sursa (job #104173) | Cod sursa (job #891634) | Cod sursa (job #505778)
Cod sursa(job #505778)
var
f,g:text;
s:string;
j,sol,t,i,nr,er:longint;
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);
write(g,sol mod 10);
end;
close(f);close(g);
end.