Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
krissalis9
12.04.2020 00:21 •
Информатика
Pascalabc.net вычислить n членов ряда фиббоначи . выбор формы цикла на ваше усмотрение.
Ответ:
КотикОцелотик1
07.10.2020 15:12
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (a,b):=(1,1);
Print(a);
for var i:=3 to n+1 do begin
Print(b);
(a,b):=(b,a+b)
end
end.
Пример
n= 15
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
0,0
(0 оценок)
Популярные вопросы: Информатика
снежана1281
24.12.2020 20:10
Сколько существует различных наборов значений логических переменных x1, x2, … x5, y1, y2, … y5, которые удовлетворяют всем перечисленным ниже условиям? (x1 → x2) ∧ (x2...
kholdingmedia
10.09.2020 17:24
Сколько времени понадобиться для того,чтобы скачать файл размером 5760 мбайт, если скорость локальной сети равно 120 мбит/секунду. ответ запишите в секундах....
karinkarinaka
10.09.2020 17:24
A3 между населёнными пунктами а, в, с, d, е построены дороги, протяжённость которых (в километрах) в таблице: определите длину кратчайшего пути между пунктами а и e....
Sonya1233210
28.07.2022 03:19
Совокупность знаков, используемых для записи чисел в некоторой системе счисления.что...
Ангелина545454
28.07.2022 03:19
1. какая винда 10 лучше корпоративная или ? профессиональная или корпоративная? 2.каким быстрым очистить диск с? 3.как выполнить чистую установку windows 10 без карты...
pollypron
14.05.2022 02:20
Всё о семействе растений: розоцветные. только , напишите покороче, но самое главное. заранее...
transformer56
14.05.2022 02:20
Как правильно выполнять морфологический разбор...
anna20032004
14.05.2022 02:20
Кого называют «король вальса»: иоган штраус л. бетховен и. с. бах в. а. моцарт...
Dva4evsky
14.05.2022 02:20
Рыбак поймал рыбу . когда у него спросили , какова масса пойманное рыбы он сказал: я думаю хвост весит 3 кг голова столько сколько хвост и половина туловища вместе ,...
nikipana
14.05.2022 02:20
Уяких тварин шкіра суха і позбавлена залоз? а. жаба зелена б.амур білий в.канюк степовий г.тхір степовий ()...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (a,b):=(1,1);
Print(a);
for var i:=3 to n+1 do begin
Print(b);
(a,b):=(b,a+b)
end
end.
Пример
n= 15
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610