Пожалуйста, помогите с решением одной из задач!!!!
Пожалуйста, помогите с решением одной из задач!!!!
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
//2
Var
f:text;
s,sub,s1:string;
i,lo,hi:integer;
begin
lo:=1;
write('Введите текст:');
readln(s);
write('Слово:',sub);
readln(sub);
while pos(sub,s)<>0 do
begin
insert('красивый ',s,pos(sub,s));
hi:=pos(sub,s)+length(sub);
s1:=s1+copy(s,lo,hi);
delete(s,1,pos(sub,s)+length(sub));
end;
s1:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s1);
close(f);
end.
Пример ввода:
Введите текст:Ехал Грека через реку. Видит Грека в реке рак. Сунул в реку руку Грека. Рак за руку Грека - цап.
Слово:Грека
Пример вывода в text.txt:
Ехал красивый Грека через реку. Видит красивый Грека в реке рак. Сунул в реку руку красивый Грека. Рак за руку красивый Грека - цап.
//З.Ы. Ваш сборник - это нечто. Не подскажете автора и название в личке?
Не нашли ответ?
Похожие вопросы