Нет, тк 1 символ=8 бит, то 8 символов=8*8=64 бит
Const
s1='abcdefghijklmnopqrstuvwyz x.';
s2='*
[email protected]#%&)(`~^\/}{][:;><? ,.';
var a:string; c:char; i:integer;
begin
Writeln ('Hello! What do you want from me? It is that what I can:');
writeln('1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)');
readln (c);
if c = '2' then
begin
writeln('enter your message');
readln(a);
for i := 1 to length(a) do
if pos(a[i],s1)>0 then a[i]:=s2[pos(a[i],s1)]
end
else // if c = '1' then
begin
writeln('enter my message');
readln(a);
for i := 1 to length(a) do
if pos(a[i],s2)>0 then a[i]:=s1[pos(a[i],s2)]
end;
writeln(a);
end.
Пример:
<span>Hello! What do you want from me? It is that what I can:
1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)
2
enter your message
privet
/{&;![</span>
256=2 i, i =8, I =120*90*8=86 400 бит=10 800 байт
Вообщем какая то такая дичь...
Сложные
<span>Если выглянет солнце, то станет тепло
</span><span>Изучение логики не трудно и не бесполезно
</span><span>Неверно, что 9 — простое число</span>
простые
<span>Москва – столица России.
Число 37 является простым.
Волга впадает в Каспийское море. </span>
Всего символов в тексте: k=24*32*64= 49152
Каждый символ кодируется 16 бит, значит информационный объем всего текста будет: I=49152*16= 786432 бит
786432 бит/8= 98304 байт
98304 байт/1024= 96 Кбайт
Ответ: Информационный объем текста равен 96 Кбайт.