Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Аля16111
26.07.2020 00:59 •
Информатика
Последовательность фибоначчи определяется так: φ0=0, φ1=1, φn=φn-1+φn-2. по данному числу n определите n-е число фибоначчи φn. (паскаль)
Показать ответ
Ответ:
Настён1989
23.09.2020 08:20
Var
i,n,a,b,c:int64;
Begin
a:=0; b:=1;
Write('Введите число n: '); Readln(n);
Write('Число фибоначи под номером ',n,': ');
Case n of
0:write('0');
1:write('1') else Begin
for i := 2 to n do Begin
c:=a+b;
a:=b;
b:=c;
End;
write(c);
End;
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
алёчек
19.06.2020 15:26
В некотором каталоге хранился файл Солнце.txt имевший полное имя D:\2013\Весна\Солнце.txt В этом каталоге создали подкаталог Тепло и файл Солнце.txt переместили в созданный...
sanya3202
19.06.2020 15:26
Определить информационный объем цифрового стереозвукового файла, длительность звучания которого составляет 3,5 минуты при частоте дискретизации 44,1 кГц и глубине кодирования...
denis040304
12.07.2021 19:00
ТОЛЬКО ГЕНИЙ МОЖЕТ РЕШИТЬ ЭТУ ЗАДАЧУ. Простая, но интересная задача по Ассемблеру: С Debug написать код, выполняющий вывод на экран текстового сообщения и последующее...
КристинаВощевоз55555
17.12.2020 08:21
Интегрированная среда разработки(IDE) это - Комбинация компьютерных инструкций и данных, позволяющая аппаратному обеспечениюВычислительной системы выполнять вычисления...
galejyan2005
23.10.2021 22:41
Текстовый редактор Процесс связывания всех файлов, созданных компилятором, с исполняемой программой Программа для пошагового поиска, обнаружения и исправления ошибок...
ChupinMaxim
05.12.2020 22:40
25//7= 15//20= 25//7= 15%20= 8%8= 12%5=...
GangsterSkrillex
20.01.2021 03:19
4. Даны переменные, распределите их в соответствии с типами: А=123; В= Маша”: С=2.5; D=False; E=8; F=True; G= 123*,Н=658.78;ЦелыеСимвольныеС плавающей точкойЛогические...
TheSiDo
25.02.2022 14:36
Задание 3 Циклический оператор. Составить программу, которая выводит на экран для числа 3 ее степени от 1 до 6....
Eldar225566
22.02.2021 00:03
Какие особенности строения отличают земноводных от рыб? выберите три верных ответа из шести и запишите цифры, под которыми они указаны. 1) органы дыхания представлены...
Loomina
29.09.2020 01:31
Что явилось одним из итогов внутренней политики александра ii? 1) освобождение крестьян от крепостной неволи 2) присоединение к россии финляндии 3) законодательное оформление...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n,a,b,c:int64;
Begin
a:=0; b:=1;
Write('Введите число n: '); Readln(n);
Write('Число фибоначи под номером ',n,': ');
Case n of
0:write('0');
1:write('1') else Begin
for i := 2 to n do Begin
c:=a+b;
a:=b;
b:=c;
End;
write(c);
End;
End;
End.