Pagini recente » Cod sursa (job #2671610) | Cod sursa (job #1354384) | Cod sursa (job #256203) | Cod sursa (job #2374635) | Cod sursa (job #335597)
Cod sursa(job #335597)
var s:array[0..19] of 0..9;
t,n,i,j,a,r:longint;
v:string;
c:char;
f,g:text;
begin
s[0]:=0;s[1]:=1;s[2]:=5;s[3]:=2;s[4]:=8;s[5]:=3;s[6]:=9;s[7]:=2;s[8]:=8;
s[9]:=7;s[10]:=7;s[11]:=8;s[12]:=4;s[13]:=7;s[14]:=3;s[15]:=8;s[16]:=4;
s[17]:=1;s[18]:=5;s[19]:=4;
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,v);
r:=0;
a:=0;
if length(v)>=2 then
begin
if length(v)>2 then
a:=((ord(v[length(v)-2])-48) mod 2)*10+ord(v[length(v)-1])-48
else
a:=ord(v[length(v)-1])-48;
r:=((ord(v[length(v)-1])-48) mod 2)*10;
end;
a:=a div 2;
r:=r+ord(v[length(v)])-48;
writeln(g,(4*a+s[r]) mod 10);
end;
close(f);close(g);
end.