Дана строка. Удалить все символы «а». Использовать рекурсивную процедуру - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Дана строка. Удалить все символы «а». Использовать рекурсивную процедуру.

Решение задачи: «Дана строка. Удалить все символы «а». Использовать рекурсивную процедуру»

textual
Листинг программы
procedure p(var s: string; c: char);
begin
  if pos(c, s) = 0 then exit;
  delete(s, pos(c, s), 1);
  p(s, c);
end;
 
// вызывать так:
  p(s, c);
  writeln(s);

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы