Вычислите n-й член последовательности, заданной формулами: a2n = an + an-1, a2n+1 = an – an-1, a0 = a1 = 1. входные данные вводится одно натуральное число n (1≤n≤1000). выходные данные вывести одно число an.
202
379
Ответы на вопрос:
Var i,n,k: integer; a: array[0..1000] of integer; begin write('n = '); readln(n); a[0]: =1; a[1]: =1; i: =2; repeat k: =i div 2; if (i mod 2) = 0 then a[i]: =a[k]+a[k-1] else a[i]: =a[k]-a[k-1]; i: =i+1; until i> n; writeln('a(n) = ',a[n]); end.
Популярно: Информатика
-
oksana141002.07.2021 16:51
-
dela1919.11.2022 02:47
-
alievosman20.03.2023 21:10
-
Книга08604.12.2020 19:03
-
xamidulla195608.08.2022 09:50
-
ivangregori32p08irj12.11.2021 22:57
-
aminka009505.05.2023 10:21
-
kep95115.08.2021 21:22
-
egorowasnezhana03.09.2022 01:47
-
N1ki408.03.2022 19:27