Задача на обработку символьных строк: Вводится символьная строка. Заменить в строке все вхождения буквосочетания "Да" на "Нет".
Задача на обработку символьных строк:
Вводится символьная строка. Заменить в строке все вхождения буквосочетания "Да" на "Нет".
Гость
Ответ(ы) на вопрос:
Гостьvar
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы