<em>Вес одного символа</em>
2⁷=128<em>(64 < 65,536)
</em>
<u>Ответ: </u><u> 70000</u>
1) А В В(отр с черточкой) В(отр)vA F
0 0 1 1 0
0 1 0 0 0
1 0 1 1 1
1 1 0 1 1
2) ABC AVB CVB F
0 0 0 0 0 0
0 0 1 0 1 0
0 1 0 1 1 1
1 0 0 1 0 0
0 1 1 1 1 1
1 0 1 1 1 1
1 1 0 1 1 1
1 1 1 1 1 1
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так