Предмет: Информатика, автор: ostin2319

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

Ответы

Автор ответа: Gleb1Kosyrev
1
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.
Похожие вопросы
Предмет: История, автор: qqqqqqazzzzzzz
Предмет: Алгебра, автор: shurhaevayanina6a
Предмет: Биология, автор: alinaakhall0