Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
N = 2ˣ
N - мощность
x - вес одного символа
Для записи часов используются 24 значения (0-23) 16<24<32 32=2^5, т.е. запись одного показания времени занимает 5 бит. То-же самое для влажности (48-62) 8<15<16 16=2^4 и температуры (13-22) 8<10<16 16=2^4. Получаем, что сообщение с 3 показателями имеет объем 5+4+4=13 бит. 13*30=390 бит