For31. Дано целое число $$N$$ ($$> 0$$). Последовательность вещественных чисел $$A_K$$ определяется следующим образом: $$A_0 = 2, A_K = 2 + 1/A_{K-1}, K = 1, 2, …$$ . Вывести элементы $$A_1, A_2, …, A_N$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program For31; var Ai :Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Writeln('Значения функции:'); Writeln('A(0)=2'); Ai:=2; For i:=1 to N do begin Writeln('A(',i,')=',2+1/Ai); Ai:=2+1/Ai; end; end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: