Предмет: Информатика,
автор: ostin2319
Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка"
На Паскале
Ответы
Автор ответа:
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.
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
Предмет: Английский язык,
автор: milazharko201760
Предмет: Русский язык,
автор: Katrinka1902