Генератор двоичных чисел через рекурсию

@NewStaff · Регистрация: 16.02.2020

Сгенерировать все двоичные числа с ненулевой первой цифрой, состоящие из a нулей и b единиц, используя рекурсию.

@JuriiMW · 17.02.2020, 08:58

Pascal

procedure gen(a,b:integer;s:string);
begin
  if a+b=0 then s.Println
  else begin if a>0 then gen(a-1,b,s+'0');if b>0 then gen(a,b-1,s+'1');end;
end;
begin
  var(a,b):=ReadInteger2;
  if (a<0)or(b<=0)then begin'Невозможно!'.Println;Halt;end;
  gen(a,b-1,'1');
end.

@NewStaff 0 / 0 / 0 Регистрация: 16.02.2020 Сообщений: 7
		1
	Генератор двоичных чисел через рекурсию 16.02.2020, 15:33. Показов 690. Ответов 1 Метки нет (Все метки) Сгенерировать все двоичные числа с ненулевой первой цифрой, состоящие из a нулей и b единиц, используя рекурсию. 0

Опции темы