Cod sursa(job #5404)
program cifra;
var f,g:text;
n,i,j,k:longint;
c:byte;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,k);
c:=0;
for j:=1 to k do begin
case j mod 10 of
1:c:=c+1;
5:c:=c+5;
6:c:=c+6;
4:c:=c+6;
9:c:=c+9;
2:if n mod 4=0 then c:=c+6
else c:=c+4;
3:if (j div 10) mod 2=0 then c:=c+7
else c:=c+3;
7:if (j div 10) mod 2=0 then c:=c+3
else c:=c+7;
8:if j mod 4=0 then c:=c+6
else c:=c+4;
end;
c:=c mod 10;
end;
writeln(g,c);
end;
close(f); close(g);
end.