Ответы на вопрос:
Const n = 10; var a: array[1..n] of real; i: integer; begin a[1]: =1; a[2]: =2; for i: = 3 to n do a[i]: =(a[i-1]+a[i-2])/i; for i: = 1 to n do write(a[i]: 0: 3,' ') end. 1.000 2.000 1.000 0.750 0.350 0.183 0.076 0.032 0.012 0.004
Популярно: Информатика
-
maschakriki10.10.2020 03:18
-
Fear1ess20.02.2021 06:26
-
gjgjggfasf13.02.2022 03:29
-
MariaUt13.05.2020 09:11
-
nargis107717.12.2022 03:36
-
olqa252ru03.05.2022 03:25
-
nekish2106.03.2022 11:35
-
GeorgeFedorenko08.06.2022 01:29
-
лидусик1306.06.2022 15:36
-
Ааааа11123529.05.2022 22:51