Cоставьте программу заменяющую в заданном тексте все буквосочетания "да" на "нет".
Cоставьте программу заменяющую в заданном тексте все буквосочетания "да" на "нет".
Гость
Ответ(ы) на вопрос:
Гостьvar
a:longint;
s:string;
begin
read(s);
while pos('да',s)>0 do
begin
a:=pos('да',s);
delete(s,a,2);
insert('нет',s,a)
end;
writeln(s)
end.
Не нашли ответ?
Похожие вопросы