Pagini recente » Cod sursa (job #162074) | Cod sursa (job #909039) | Cod sursa (job #7124) | Cod sursa (job #2428448) | Cod sursa (job #1147084)
program cifra;
var t,n,i,m:longint;
s:ansistring;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
readln(t);
while (t>0)do begin
readln(s);
if length(s)>=2 then
n:=ord(s[length(s)])-48+(ord(s[length(s)-1])-48)*10
else n:=ord(s[1])-48;
m:=n;
n:=0;
n:=(m div 20-1)*8;
m:=m mod 20;
for i:=0 to 19 do
if m>=i then case i of
0:inc(n,8);
1:inc(n,1);
2:inc(n,4);
3:inc(n,7);
4:inc(n,6);
5:inc(n,5);
6:inc(n,6);
7:inc(n,3);
8:inc(n,6);
9:inc(n,9);
10:inc(n,0);
11:inc(n,1);
12:inc(n,6);
13:inc(n,3);
14:inc(n,6);
15:inc(n,5);
16:inc(n,6);
17:inc(n,1);
18:inc(n,4);
19:inc(n,9);
end;
{if (m <=20) and (length(s)<=2) then dec(n,8); }
writeln(n mod 10);
dec(t);
end;
close(output);
end.