Question

пожалуйста, помогите с решением одной из задач!!!!

Answer 1

//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:
Ехал красивый Грека через реку. Видит красивый Грека в реке рак. Сунул в реку руку красивый Грека. Рак за руку красивый Грека - цап.

//З.Ы. Ваш сборник - это нечто. Не подскажете автора и название в личке?

Answer 2

сама не в курсе) спасибо огромное!!!!

Answer 3

напишите мне лс