//PascalABC v3.1
var s: string;
procedure repAll(var s: string; wOld, wNew: string);
var res: string;
p, len: integer;
begin
len:= Length(wOld);
res:= '';
while Length(s) > 0 do begin
p:= Pos(wOld, s);
if p = 0 then begin res:= res + s; break; end;
if p > 1 then res:= res + Copy(s,1,p-1);
res:= res + wNew;
if p+len > Length(s) then
s:= ''
else s:= Copy(s,p+len,Length(s));
end;
s:= res
end;
begin
readln(s);
repAll(s, 'СО', 'ТУ');
writeln(s)
end.
Тестовое решение:
СОК СОК СОК КОК ПОК
ТУК ТУК ТУК КОК ПОК
Интернет.
Интернет-популярное средство обмена информацией среди милионов пользователей.Ежедневно интернетом пользуются больше 2 млрд пользователей по всему миру,и с каждым годом пользователей становиться всё больше и больше.В дальнейшем будущем,почти не останется человека,который бы не пользовался интернетом.Но в этом есть и плохое,изобретая всё новые и новые инновации,человечество уже не будет ходить в магазины,делать покупки,гулять,за них всё будет делать техника и интернет.В итоге все действия превратяться в виртуальные.Всё же переборщять с интернетом не стоит.