Pagini recente » Cod sursa (job #2094062) | Cod sursa (job #550920) | Cod sursa (job #235194) | Borderou de evaluare (job #131491) | Cod sursa (job #288452)
Cod sursa(job #288452)
var f,g:text;
u,i,t,n,s,e,k,q,j,o:longint;
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,n);
s:=0;
for u:=1 to n do begin
e:=u;
k:=u mod 10;
case k of
1,5,6:s:=s+k;
2,3,7,8:begin
q:=e mod 4;
if q=0 then q:=4;
o:=k;
for j:=2 to e do o:=k*o;
s:=s+o mod 10;
end;
4,9:begin
q:=e mod 2;
if q=0 then q:=2;
o:=k;
for j:=2 to e do o:=o*o;
s:=s+o mod 10;
end; end;
end;
writeln(g,s mod 10);
end;
close(f);
close(g);
end.