//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.
Тестовое решение:
СОК СОК СОК КОК ПОК
ТУК ТУК ТУК КОК ПОК
1)
number_list = [int(input()) for n in range(4)]
amount = 0
for i in number_list:
amount += i
print(amount)
3)
number_list = []
n = 0
for i in range(100, 1, -1):
if i % 19 == 0:
number_list.append(i)
n += 1
if n == 15:
break
print(number_list)
4)
number = str(input())
number_list = [i for i in number]
eight_list = []
if number_list.count('8') == 0:
print('0')
else:
print(number_list.index('8') + 1)
5)
number = str(input())
number_list = [n for n in number]
amount = 0
for i in number_list:
amount += int(i)
if amount > 10:
print('Верно .')
else:
print('Не верно .')