Регистрация
Ayvili
21.07.2022 00:45
Информатика
Есть ответ 👍

Дан текст s, заменить сочетания со на ту

117
152
Посмотреть ответы 2

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

Ali954
Ali954
4,5(87 оценок)

//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.

тестовое решение:

сок сок сок кок пок

тук тук тук кок пок

DEMON8800
DEMON8800
4,6(5 оценок)
Правильный ответ 1 бит

Популярно: Информатика