profile
Опубликовано 6 лет назад по предмету Информатика от ostin2319

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

  1. Ответ
    Ответ дан Gleb1Kosyrev
    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.
Самые новые вопросы