Давным-давно жил на свете математик по имени Леонардо. Однажды он заметил, что в природе часто встречается последовательность чисел 0, 1, 1, 2, 3, 5, 8, … Он сразу понял, что первые два числа этой последовательности F1 = 0 и F2 = 1, а все последующие вычисляются по простому правилу: Fn = Fn-2 + Fn-1. Напишите программу для вычисления n-го числа последовательности. Формат входных данных Первая строка входных данных содержит натуральное число n (1 ≤ n ≤ 80). Формат выходных данных Вывести n-ое число последовательности. Примеры входных и выходных файлов Входные данные Выходные данные 5 3 10 34
206
484
Ответы на вопрос:
PascalABC.NET beginvar a := ArrRandom(ReadInteger('Кількість:'),-50,50);Println('Елементы:',a.JoinToString);Println('Найбільший парний:',a.Where(x->x.IsEven).Max);Println('Найбільший непарний:',a.Where(x->x.IsOdd).Max);Println('Найменшийпарний:',a.Where(x->x.IsEven).Min);Println('Найменшийнепарний:',a.Where(x->x.IsOdd).Min);end.
Пример работы:
Популярно: Информатика
-
Апуля1105.09.2022 18:01
-
Fynerka22.03.2023 12:30
-
марго100220.10.2020 05:53
-
Яяяячччч30.10.2020 07:47
-
SeverBig3630.12.2020 05:04
-
ЛидияЕрулаева1706.04.2023 23:17
-
artemalashev02.04.2023 13:17
-
Viktoria20043022.04.2022 06:25
-
zulyarakhimovaa21.08.2020 19:38
-
valerapolnikov216.05.2020 07:16