Задачка по паскалю (⋋▂⋌) _________________ дана строка символов (или вводится с клавиатуры любой текст) в введенном предложении заменить слог "не" на слог "да"
Задачка по паскалю (⋋▂⋌)
_________________
дана строка символов (или вводится с клавиатуры любой текст)
в введенном предложении заменить слог "не" на слог "да"
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы