Есть ответ 👍

Давным-давно жил на свете математик по имени Леонардо. Однажды он заметил, что в природе часто встречается последовательность чисел 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
Посмотреть ответы 1

Ответы на вопрос:

medewwnik
4,7(57 оценок)

                                     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.

Пример работы:


 Напишіть програму, яка в масиві цілих чисел знаходить найбільший(найменший) елемент масиву. Кількіс

Популярно: Информатика