Дано предложение. Заменить в нем все вхождения буквосочетания про на нет

@Shuler02 · Регистрация: 20.12.2011

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

Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет!

@КонецСвета · 01.04.2012, 20:33

Pascal

uses crt;
var s,sc: string;
    i: byte;
begin
write('s='); readln(s);
for i:=1 to length(s)-2 do
    if copy(s,i,3)='про' then
       begin
       delete(s,i,3);
       insert('нет',s,i);
       end;
write('s=',s);
readln;
end.

@Shuler02 1 / 1 / 0 Регистрация: 20.12.2011 Сообщений: 38
		1
	Дано предложение. Заменить в нем все вхождения буквосочетания про на нет 01.04.2012, 19:14. Показов 2690. Ответов 1 Метки нет (Все метки) Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет! 0

Опции темы

Дано предложение. Заменить в нем все вхождения буквосочетания про на нет

Решение