12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
1) неопределенность знаний n = 64 - 32 = 32;
2) i = log232 = 5 бит - количество информации;
3) количество бит соответствует количеству вопросов.
ответ: 5 вопросов.
Ответ дал: Гость
256= 2^i=2^8следовательно i=8 битов
8*80*32=20480 битов
20480*2=40960 битов=5120 байт=5 килобайт
^ - это я так обозначила степень
i - количество информации(обычно обозначается большой буквой)
Популярные вопросы