Pagini recente » Cod sursa (job #454734) | Cod sursa (job #515950) | Cod sursa (job #393852) | Cod sursa (job #2743707) | Cod sursa (job #168503)
Cod sursa(job #168503)
var v:array[1..100] of longint;
n,a,i,t,j,k,b,d,s:longint;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do begin
readln(f,b);
a:=b;
k:=0;
repeat
k:=k+1;
v[k]:=b mod 2;
b:=b div 2;
until b=0;
d:=1;
for j:=k downto 1 do begin
d:=d*d mod 10;
if v[j]=1 then d:=d*a mod 10;
end;
s:=(s+d) mod 10;
writeln(g,s);
end;
close(f);
close(g);
end.