Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка" На Паскале
Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка"
На Паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы