3.(использовать рекурсию) Даны числа a и b. Определите, сколько существует последовательностей из a нулей и b единиц, в которых никакие два нуля не стоят рядом.
Паскаль!!!
Ответы
Ответ дал:
3
Ответ:
- var a,b,c: integer;
- procedure f(a1,b1,c1: integer);
- begin
- if (a1=a) and (b1=b) then c:=c+1;
- if (a1<>a) and (c1<>0) then f(a1+1,b1,0);
- if b1<>b then f(a1,b1+1,1);
- end;
- begin
- Read(a,b);
- f(0,0,10);
- Write(c);
- end.
Пример работы:
0110 1010 0101
Приложения:
![](https://st.uroker.com/files/7c6/7c62ed3bd7e304e36fde0b4c72123711.png)
![](https://st.uroker.com/files/461/461bbdcd46bd727db812143763ddbcba.png)
NelmanPlay:
Спасибо! Чел ты лучший
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад