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

Задачка по паскалю (⋋▂⋌)
_________________
дана строка символов (или вводится с клавиатуры любой текст)
в введенном предложении заменить слог "не" на слог "да"

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

Var s:string;
i,k:integer;
begin;
readln(s);
while pos(не,s)<>0 do //пока есть не в строке
begin;
k:=pos(не,s);         //сохраняем позицию не
delete(s,pos(не,s),2); //удаляем не из строки
insert(да,s,k); //ставим не её место да
end;
writeln(s);
end.