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

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

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


textual

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

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);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5

Источник