Дана строка текста до 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.
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.