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

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

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

Код к задаче: «Дана строка. Удалить все символы «а». Использовать рекурсивную процедуру - 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


СОХРАНИТЬ ССЫЛКУ