Задать вопрос
ИнформатикаИнформатика
24 апреля, 18:21

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

На Паскале

+5
Ответы (1)
  1. 24 апреля, 20:17
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дана строка текста, знаков препинания в строке нет. заменить все вхождения "Киров" на "Вятка" На Паскале ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Значения слов: 1. Дельта 2. пороги 3. ил 4. папирус 5. оазин 6. фараон
Нет ответа
Объясните как определить заряд иона образуемого кислотным остатком и соответствующий оксид ... на примере H3PO4
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа
Главная » Информатика » Дана строка текста, знаков препинания в строке нет. заменить все вхождения "Киров" на "Вятка" На Паскале
Регистрация Забыл пароль