Добавить после каждой буквы "о" букву "а" в скобках - "(а)"

@Markches · Регистрация: 08.10.2016

Студворк — интернет-сервис помощи студентам

Дан текст(массив строк, любой не большой текст). Составить программу, которая будет добавлять после каждой буквы "о" букву "а" в скобках - "(а)".

@Puporev · 18.10.2016, 13:24

Pascal

var s:array[1..10] of string;
    n,i,j:byte;
begin
write('Количество строк от 1 до 10 n=');
readln(n);
writeln('Введите ',n,' строк');
for i:=1 to n do
readln(s[i]);
writeln('Преобразованный текст');
for i:=1 to n do
 begin
  for j:=length(s[i])downto 1 do
  if s[i][j] in ['о','o'] then insert('(a)',s[i],j+1);//о русская и латинская
  writeln(s[i]);
 end;
end.

@Markches 0 / 0 / 0 Регистрация: 08.10.2016 Сообщений: 12
		1
	Добавить после каждой буквы "о" букву "а" в скобках - "(а)" 18.10.2016, 13:03. Показов 4214. Ответов 1 Метки нет (Все метки) Дан текст(массив строк, любой не большой текст). Составить программу, которая будет добавлять после каждой буквы "о" букву "а" в скобках - "(а)". 0

Опции темы

Добавить после каждой буквы "о" букву "а" в скобках - "(а)"

Решение