Осязание - это метод получения информации, путем прикосновений. Соответственно - тактильная информация..
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>
Балкон
баскетбол
гимнастика
гитара
канал
посетить
почерк
расчет
расчетливый
спортсмен
справа
справедливый
чехол
шоссе
шофёр
L=1Кбайт=1024байт=8192бит
i=I/k=8192/2048=4 бита на один символ
N=2^4=16 символов
Ответ : в алфавите 16 символов