Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Slloonok
15.03.2022 09:04 •
Информатика
Дано целое число n (> 2). сформировать и вывести целочисленный массив размера n, содержащий n первых элементов последовательности чисел фибоначчи fk: f1 = 1, f2 = 1, fk = fk−2 + fk−1, k = 3, 4, . .
Показать ответ
Ответ:
Top4ik80
06.10.2020 22:32
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
procedure Fib(var a,b:integer);
begin
(a,b):=(b,a+b)
end;
begin;
var (n,p,q):=(ReadInteger('n='),1,1);
var a:=ArrFill(n,1);
for var i:=3 to n do begin Fib(p,q); a[i-1]:=q end;
a.Println
end.
Пример
n= 13
1 1 2 3 5 8 13 21 34 55 89 144 233
0,0
(0 оценок)
Популярные вопросы: Информатика
ывцым
06.08.2020 00:49
Задать случайным образом случайные числа пока не введено число больше 90 ( паскаль)...
looney2017
21.05.2020 00:46
32 страницы по 64 строки по 64 символа перекодировать из 8 в unicode на сколько больше стало объём файла...
coolflex
12.04.2023 15:43
Впримерах выбери только те, в которых один объект находится в отношениях с другим объектом. форсунки входят в состав автомобиляфёдор — сын андреяплощадь москвы больше площади...
asvazy123
06.12.2022 14:16
Написать программу, коьорая раскладывает введенное натуральное число на простые множители....
almas05
13.05.2021 05:26
Какие виды сносок можно создать в текстовом документе?...
vasinmihailov
26.04.2023 19:50
Базы данных (microsoft access) ответьте на эти вопросы с пояснениями:...
MaGaFaYa
20.05.2020 00:57
Пажежда, таблица по информатике 10 класс...
huesosoff2016
26.12.2021 14:14
Много что делает исходный код программы неудобочитаемым? варианты: компиляция программы. продажа программы. распространение по через интернет. исполнение программы....
natalikohan12p0domq
14.01.2020 14:05
Написать на с++протабулировать функцию одной переменной на отрезке с шагом h=2 , ! седьмое / седьмое / седьмое...
tiatyx5
05.10.2020 19:44
Составьте программу вычисления суммы видео в диапазоне от 35 до 105.35+36++105...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
procedure Fib(var a,b:integer);
begin
(a,b):=(b,a+b)
end;
begin;
var (n,p,q):=(ReadInteger('n='),1,1);
var a:=ArrFill(n,1);
for var i:=3 to n do begin Fib(p,q); a[i-1]:=q end;
a.Println
end.
Пример
n= 13
1 1 2 3 5 8 13 21 34 55 89 144 233