Составить программу, которая выводит число последовательности с номером N (вводится Первые два числа 0 и 1, а каждое последующее равно сумме двух предыдущих (числа 0, 1, 1, 2, 3, 5, 8, 13, 21...). . *
2 в.н.э - Изобретение технологии изготовления бумаги в Китае Середина 15 в. - Начало книгопечатания в Европе 2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии 80- гг. 20 в. - Появление первых лазерных дисков 5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте Середина 16 в - Начало книгопечатания в Росии 60-е гг. 20 в. - Появление первых жестких дисков для компьютеров 1895 г - Демонстрация первого кинофильма 70-е гг 19 в - Первая запись звука с фонографа 20-е гг 20 в - Изобретение магнитофона 1839 г. - Изобретение фотографии
beast05031075
13.01.2020
Ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу, которая выводит число последовательности с номером N (вводится Первые два числа 0 и 1, а каждое последующее равно сумме двух предыдущих (числа 0, 1, 1, 2, 3, 5, 8, 13, 21...). . *
begin
var n := ReadInteger();
var s := SeqGen(n, 0, 1, (p, q) -> p+q);
s.Last.Println;
end.
Объяснение: