Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дана строка русского текста до 60 символов.Слова разделены пробелами.Заменить встречающиеся в строке слова то на слово это.Напечатать исходную и полученную строки.Напишите,пожалуйста,программу.Составить программу в паскале.

Ответ оставил Гость

var
k:integer;
s:string;
begin
readln(s);
k:=pos(то,s);
while k<>0 do
begin
  k:=pos( то ,s);
  if k<>0 then
  begin
    Delete(s,k+1,2);
    Insert(это,s,k+1);  
  end;
end;
writeln(s);
end.