дана строка символов.

@Булдык · Регистрация: 22.05.2011

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

Заменить в заданной строке каждую группу букв child группой букв childdren

@Puporev · 23.05.2011, 09:21

Pascal

var s:string;
    i:byte;
begin
writeln('Введите строку, содержащую сочетания child:');
readln(s);
for i:=length(s) downto 1 do
if copy(s,i,5)='child' then insert('dren',s,i+5);
write(s);
readln
end.

@Булдык · 23.05.2011, 09:32 **[ТС]**

огромнешее спасибочки

@Булдык 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 8
		1
	дана строка символов. 23.05.2011, 08:51. Показов 1061. Ответов 2 Метки нет (Все метки) Заменить в заданной строке каждую группу букв child группой букв childdren 0

@Булдык 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 8
	23.05.2011, 09:32 [ТС]	3
	огромнешее спасибочки 0

дана строка символов.

Решение