Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте - Pascal ABC

  1. Дан текст. Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте.


textual

Код к задаче: «Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте - Pascal ABC»

var s : string;
begin
  readln(s);
  while Pos('ии',s)>0 do s[Pos('ии',s)+1] := 'e';
  writeln(s);
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.286 из 5



Похожие ответы
  1. Помогите пожалуйста написать данный код через процедуру

  1. Нечетные строки таблицы заменить на вектор X

  1. Дано натуральное число n. Получить S – сумму тех чисел вида i3-3in2+n ,(i=1,2,...,n), которые являются утроенными нечетны-ми. Если таких чисел нет – считать сумму равной 0.

  1. Дан массив символов, в котором встречаются структуры и . Заменить каждое вхождение на , а каждое вхождение на <#>. Замечание: в программе следует учесть, что буква i может быть как строчной, так и прописной. Желательно расписать какая команда что выполняет.

  1. заменить максимальный по модулю отрицательный элемент массива нулём

  1. Написать программу: В заданной строке заменить подряд идущие пробелы на один пробел

  1. 1. Сформируйте случайным образом строку из 30 больших букв латинского алфавита и удалите повторяютщиеся символы, заменив их нулями. Выведите на экран сформированный массив и массив после обработки.

  1. Заменить простые числа в массиве их номерами (pascal) Помогите пожалуйста срочно надо сделать работу.

  1. Доброе время суток. Подскажите пожалуйста, как заменить goto на процедуру. Код готовый, нужно только отредактировать, нашел тут на форуме похожий пример, но не совсем понял его. Заменять на if ... then... else?