Pagini recente » Cod sursa (job #2777192) | Cod sursa (job #1808752) | Cod sursa (job #713240) | Cod sursa (job #2961931) | Cod sursa (job #18040)
Cod sursa(job #18040)
const a:array[0..9] of byte=(0,1,5,4,0,5,1,0,6,5);
var c,c1,c2:char;
n1,n2,i,t,add:longint;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do begin
c1:='0';
c2:='0';
c:='0';
while (c<>#13) and (c<>#26) do begin
c2:=c1;
c1:=c;
read(f,c);
end;
val(c1,n1);
val(c2,n2);
if (n2+10) mod 2=1 then add:=5
else add:=0;
if add+a[n1]<>0 then
writeln(g,(add+a[n1])mod 10)
else writeln(g,0);
end;
close(f);
close(g);
end.