Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
sarranuryeva
09.03.2020 04:35 •
Информатика
Pascalabc.net вычислить n членов ряда фиббоначи . выбор формы цикла на ваше усмотрение.
Ответ:
Егорка2910
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 оценок)
Популярные вопросы: Информатика
instajoha1p0917j
31.07.2021 07:20
Как войти в интернет на компютере? подскажите...
lady198026
05.03.2021 06:10
Рассчитать количество нулей в двоичной записи числа 75....
птмпль
20.01.2021 02:33
Нужно написать программу ( в паскале) в результате выполнения который большее из двух чисел заменяется числом ему противоположным ....
kharina0309
20.01.2021 02:33
Отгадать правила кодирования 5 6 12 23 123 234 77 555...
ruzmat84ot4xqh
20.01.2021 02:33
1. в электронных таблицах осуществить копирование формулы, содержащей относительные ссылки, из активной ячейки с1 в ячейку d2 и в ячейку ез. какие формулы будут в этих ячейках? исходная...
olga638
20.01.2021 02:33
Ввести одномерный массив a, вывести его. переставить в обратном порядке все элементы между максимальным и предпоследним отрицательным элементом. , не могу найти предпоследний элемент...
Izijjkghkk
07.10.2021 06:18
Напишите программу на языке бейсик для вычисления произведения с=3^2*5^2*7^2*. при вводе данных учтите, что s 3...
leo1233121
07.10.2021 06:18
Составить блок-схему для . дан массив из n целых чисел. выяснить, какое число встречается в массиве раньше – положительное или отрицательное....
Danil10031
20.02.2022 01:39
1. виды памяти 2.устройство в вода информации 3.устройства вывода информации...
katy3105
21.08.2022 22:25
Клава открыла несколько папок и расположила их окна каскадом .за какое минимальное количество кликов по значкам папок в панели клава сможет расположить эти окна по алфавиту так чтобы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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