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

xgvhhdhs xgvhhdhs    2   21.05.2019 08:50    3

Ответы
миларыбка миларыбка  15.06.2020 09:27

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика