Pagini recente » Cod sursa (job #2508866) | Cod sursa (job #2483118) | Cod sursa (job #3212721) | Cod sursa (job #704072) | Cod sursa (job #335496)
Cod sursa(job #335496)
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;
for j:=1 to length(v)-1 do
begin
a:=(r*10+ord(v[j])-48) div 2;
r:=(ord(v[j])-48) mod 2;
end;
writeln(g,(4*a mod 10+s[r*10+ord(v[length(v)])-48]) mod 10);
end;
close(f);close(g);
end.