Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка"
На Паскале

Ответ оставил Гость

Var
 s:string;
 i:integer;
begin
readln(s);
while pos(Киров,s)<>0 do
 begin
  i:=pos(Киров,s);
  delete(s,pos(Киров,s),5);
  insert(Вятка,s,i);
 end;
write(s);
end.