Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
При использовании 8 символов для хранения одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*8 = 160 бит = 20 байт
Объект управления:икона
Управляющее воздействие:чтение
Цель управления:помолиться иконе
Результат управления: вера в бога
................................
Логическое значение истинности этого высказывания В=0 ("ложь")