Информация
Что тут сложного?)
program raf105;
var s,s1:string;
begin
s:= 'информатика';
s1:= s1 + copy(s,3,5);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);
writeln(s1);
s1:= '';
end.
<h3><em><u>Язык PascalABC</u></em></h3>
32 = 2^5 значит один символ занимает 5 бит
3*25*80=6000 символов в книге
6000*5 = 30000 бит = 3750 байт информации в книге