Var S:string; i,k:integer; Begin k:=0; Write('Введите строку: ');ReadLn(S); For i:= 1 to Length(S)-2 do if S[i]='d' then if S[i+1]='o' then if S[i+2]='g' then Begin S[i]:='c'; S[i+1]:='a'; S[i+2]:='t'; End; WriteLn('Новая строка: ',S); End.
Итак, компьютерная сеть – это система компьютеров, связанная каналами передачи информации. - Зачем нужны компьютерные сети? Назначение всех компьютерных сетей можно выразить двумя словами: совместный доступ или совместное использование. Прежде всего, имеется в виду совместный доступ к данным. Людям, работающим над одним проектом, приходится постоянно использовать данные, создаваемые коллегами. Благодаря сети эти и многие другие проблемы решаются.
Одним из простейших видов соединения является прямое соединение компьютеров. Мы знаем, что для взаимодействия с внешними устройствами компьютеры имеют специальные устройства – коммуникационные порты.
Из Cообщение "мальчик с тёмными волосами" содержит 2 бита следует: 2^2 =4 (количество мальчиков с тёмными волосами) Из Сообщение "девочка с тём волосами" - 3 бита следует: 2^3 = 8 (количество дев с тём волосами) 8 +4 =12 (количество детей с тёмными волосами) Вероятность того, что будет выбран ученик с тёмными волосами: p(т) =12/32=3/8 вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8 > 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам. ОТВЕТ 3 бита.
S:string;
i,k:integer;
Begin
k:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-2 do
if S[i]='d' then
if S[i+1]='o' then
if S[i+2]='g' then
Begin
S[i]:='c';
S[i+1]:='a';
S[i+2]:='t';
End;
WriteLn('Новая строка: ',S);
End.