Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ozabo4eniy
09.02.2021 11:45 •
Информатика
Напишите функцию которая вычисляет n-е число фибоначчи
Показать ответ
Ответ:
илья06092001
19.08.2020 12:59
//По формуле Бине
//Pascal ABC.NET v3.0 сборка 1111
Var
r,n:real;
begin
readln(n);
r:=(power((1+sqrt(5))/2,n)-power((1-sqrt(5))/2,n))/sqrt(5);
writeln(r);
end.
Пример ввода:
7
Пример вывода:
13
0,0
(0 оценок)
Популярные вопросы: Информатика
Регина557
12.07.2020 07:49
Арифметикалық амалдар мен оларды орындау нәтижелерін сәйкестендір...
suv1612
10.05.2022 19:14
Надо сделать по паскалю а у меня не получается. выручайте. разработать алгоритм, который выводит первые четыре степени числа a....
ThreeCats
02.02.2020 09:01
Установи закономерность. впиши недостающие числа. 1,2,2,3,3,4,7...
bhsdvsbvgvfsbvefe
02.04.2020 12:20
Нужно составьте алгоритм. такая. что бы не опоздать на следующий урок, семиклассник должен сложить свои вещи в ранец за 15 секунд. сколько раз успеет сложить свои вещи семиклассник...
Августина1511
02.04.2020 12:20
Участникам метагалактической конференции, закодированное при всех символов некоторого алфавита выглядит так: ∑((*♥+♫+☼)*♥*-☻)+♪= ∞≈ сколько байт информации оно несет? запиши только...
Noka1319
02.04.2020 12:20
Рис расфасован в два пакета вес 1-m кг вес 2-k кг определить какой пакет тяжелее и вес более тяжелого пакета...
utochkins04
02.04.2020 12:20
Требуется загрузить теплоход апельсинами и лимонами так, чтобы стоимость груза была максимальной. при этом известно, что объем грузового отсека теплохода составляет 1000 м3; картонные...
jumaev1998
23.06.2020 13:27
Дано целое трехзначное число n, значение которого вводится с клавиатуры. написать программу, которая выводит на экран true , если сумма каких-либо двух цифр числа n равна третьей цифре,...
gamer0072
23.06.2020 13:27
найти значение логического выражения ((1\/0)/\(1\/0))/\1...
КатяСвиридова
14.07.2022 10:34
С, решить нужно с использованием процедуры или функции. : в двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. размер произвольный....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Pascal ABC.NET v3.0 сборка 1111
Var
r,n:real;
begin
readln(n);
r:=(power((1+sqrt(5))/2,n)-power((1-sqrt(5))/2,n))/sqrt(5);
writeln(r);
end.
Пример ввода:
7
Пример вывода:
13