Готово...........................
10 переведи в 4чную систему счисления, сосчитай кол-во разрядов и вот ответ, но т.к. ты ленивый, то 10 это 22, 2 разряда, значит нажимать нужно 2 клавиши, если нажимать 2 клавиши, то можно 15 разных символов ввести
1)
CF(16) = 1100 1111(2); 321(8) = 11 010 001(2)
x = 1101 0000(2)
2)
B5(16) = 1011 0101(2); 267(8) = 10 110 111(2)
x = 1011 0110(2)
var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.