Дана строка текста до 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
