Pagini recente » Cod sursa (job #2744615) | Cod sursa (job #851410) | Cod sursa (job #652647)
Cod sursa(job #652647)
program p1;
var i,k,n,cit,rest,cifra:longint;
fi,fo:text;
Begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
read(fi,k);
for i:=1 to k do
begin
readln(fi,n);
cit:=n div 10;
rest:=n mod 10;
case rest of
1:cifra:=1;
2:cifra:=5;
3,7:cifra:=2;
4,8:cifra:=8;
5:cifra:=3;
6:cifra:=9;
0,9:cifra:=7;
end;
writeln(fo,(cit*7 mod 10 + cifra)mod 10);
end;
close(fi); close(fo);
END.