Var
A:integer;
Begin
Write(A);Read(A);
if (A>9)and(A<100) then Write('А - двузначное')
else Write('А - не двузначное')
End.
1 раз. На 2-ом проходе у тебя while не выполняется
Это принять значение за константу. Значение в этой ячейке не будет изменяться.
Всего объем сообщения 3кб = 3072 байт = 24576 бит
На кодирования одного символа ушло 24576 : 6144 = 4 бит/символ
С помощью 4 бит можно закодировать < 2^4 символов
Ответ: Символов меньше 16.