Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Fiza15
04.03.2021 01:17 •
Информатика
Последовательность фибоначчи определяется так: φ0=0, φ1=1, φn=φn-1+φn-2. по данному числу n определите n-е число фибоначчи φn. (паскаль)
Показать ответ
Ответ:
Beaargleb
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 оценок)
Популярные вопросы: Информатика
няшка366
05.06.2021 22:14
Напишите правильную запись выражения на языке Python (введите ваш ответ): * ...
Лидия99
19.06.2022 08:14
Определите объём 8 секунд видео с размерами кадра 1536x1024, глубиной цвета 16 бит, скоростью воспроизведения 40 кадров в секунду....
лох251
22.05.2023 16:18
Рассчитать объем памяти (в Мегабайтах), необходимой для представления Пятиминутного фильма на экране монитора с пространственным разрешением 1024 x 800 пикселей и палитрой из 1024...
Peregudovapolina
16.10.2021 15:29
Определить количество символов которые можно закадировать имея в распоряжении 12 бит...
baklazhan2004
10.12.2022 14:54
Задание В сетке таблицы записаны 11 слов (по горизонтали, по вертикали и по диагонали). Нужно отыскать все слова и записать их на листе, в скобках указано количество букв в слове:...
Mymir06
10.03.2021 16:46
сканируется цветное изображение размером 10×15 см. разрешающая сканера 600 ×600 dpi, глубина цвета - 3 байта. какой информационный объем будет иметь полученный графический файл?...
sofiko365
05.04.2021 23:55
ВАРИАНТ 1 1. в какой клетке окажется Робот после исполнения програ мы? Начальное положение Роботая отмечено ромбиком.использовать робот алг нач нц вверх вправокц при сверху не...
ромамс
07.06.2020 14:57
В программе «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок...
Анна23091
11.11.2022 03:21
Напишите программу вычисления суммы первых членов геометрической прогрессии...
asel07071
04.06.2021 23:49
Найдите правильную запись выражения на языке Python: * 34.5+24.5/15*у(34.5+24.5)/15у(34.5+24.5)15*у(34.5+24.5)/15*у...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.