В кодировке КОИ-8 каждый символ кодируется 8 битами. Определить информационный вес данного предложения 《Через терним - к звездам!》

137

466

Посмотреть ответы 1

Ответы на вопрос:

Motya232

Информатика

4,7(75 оценок)

Var s: string; p: integer; begin writeln('введите строку: '); readln(s); p: =pos('ба',s); if p> 0 then begin while p> 0 do begin delete(s,p,2); insert('ро',s,p); p: =pos('ба',s); end; writeln(s); end else writeln('в строке нет слогов "ба"'); end. пример: введите строку: базароза