{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }
const n=10; var A,B,C,i,k: integer; begin A:=1; B:=1; { вывод последовательности на экран } for i:=2 to n do begin C:=A; A:=A+B; B:=C; writeln(i,' -> ',A,'/',B); end; { подсчет k - го члена } k:=20; A:=1; B:=1; for i:=2 to k do begin C:=A; A:=A+B; B:=C; end; writeln(k,' - ый элемент = ',A,'/',B); <span>end.
Цикл будет работать до числа 15. Переменная s будет увеличиваться на 1, если остаток при делении равен 1. Получается, что s будет увеличиваться при нечетных числах. Всего их 8, соответственно s = 8. Таблицу смотри во вложении.
<em>3. 11 +1 = 100, 111 +1 = 1 0 0 0, 1111 +1 = 1 0 0 0 0, 11111 +1 = 1 0 0 0 0 0.</em> <em>2. Сделаешь сам, это элементарно очень. Берешь число и делишь его на два.....Остатки, которые я подчеркнул красным....считаешь в обратном порядке. ..</em> <em>1. Тоже решишь сам, вот подсказка: Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа</em><span><em>. </em></span>