Pagini recente » Cod sursa (job #532381) | Cod sursa (job #2230923) | Cod sursa (job #1958310) | Cod sursa (job #239943) | Cod sursa (job #211372)
Cod sursa(job #211372)
var f,g:text;
t,i,y,x:integer;
nr:string;
a:array[1..9,0..1] of integer;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
a[1,0]:=1; a[1,1]:=1;
a[2,0]:=5; a[2,1]:=7;
a[3,0]:=2; a[3,1]:=0;
a[4,0]:=8; a[4,1]:=6;
a[5,0]:=3; a[5,1]:=1;
a[6,0]:=9; a[6,1]:=7;
a[7,0]:=2; a[7,1]:=4;
a[8,0]:=8; a[8,1]:=8;
a[9,0]:=7; a[9,1]:=7;
for i:=1 to t do
begin
readln(f,nr);
if length(nr)>1 then x:=ord(nr[length(nr)-1])-ord('0')
else x:=0;
y:=ord(nr[length(nr)])-ord('0');
writeln(g,(x*7+a[y,x mod 2])mod 10);
end;
close(g);
end.