tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Pascalabc.net вычислить n членов
Pascalabc.net вычислить n членов ряда фиббоначи . выбор формы цикла на ваше усмотрение.
bagdasaryaneedik6390
1 14.09.2019 20:40
1
Ответы
vladbb2017
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NanaxD
16.03.2021 08:34
Дан список целых чисел, число k и значение C. Необходимо вставить в список на позицию с индексом k элемент, равный C, сдвинув все элементы, имевшие индекс не менее k, вправо....
Serey9999
08.08.2019 18:20
Программа должна вывести одно число: максимальное число, оканчивающиеся на 9. входные данные: выходные данные: 3 19 9 19 23...
Andriuy2003
08.08.2019 18:20
Петя и ваня играют в следующую игру у них имеется бумажная клетчатая полоска разномерности n/ ход игрока состоит в том, что он зачеркивает ровно к пустых сежных клеток. выигрывает...
Marketing23
08.08.2019 18:20
C++ нужно создать одномерный массив a[5] где числа будут введены случайным образом от 0 до 1. я делал вот что у меня получается: #include #include #include using namespace...
марьям2789
12.03.2021 06:11
ТЕКСТ ЗАДАНИЯ Банку требуется сообщить вкладчику, что его процент дохода по вкладу составит 14,2% в год, а при вкладе 350 000 тенге и выше составит 13,5% в год. Запишите конструкцию...
какашка3748
12.03.2021 06:10
Напечатать все трёх значные числа у котоых сумма цифр равна 15 python for in range...
mandarinkamare007
12.03.2021 06:09
Проведите соответствие программ назначения 1 системы программирования 2 прикладные программы 3 системные программы А) Word, Excel, PowerPoint B) Windows, Lunix, Eset Nod 32,...
живууууу
12.03.2021 06:08
Дайте определение 1.Робот - ? 2.В какихсферах используют роботов?3. Датчик цвета - ? 4. Гироскопическийдатчик -?пиж ,...
gern74p01ako
12.03.2021 06:08
9) Циклом называется … а) выполнение последовательно определенную последовательность команд;б) выполнение многократно определенную последовательность команд;в) выполнение...
taty30
21.04.2020 15:58
Які етапи реалізації проектів ви знаєте?...
Популярные вопросы
Нужно зделасть 4, 5 ,6 задание а 3, 2 и 1 ненадо...
1
сложный план по теме проблема вероисповедения на присоединенных землях...
3
Удары абсолютно упругие Давление-Импульс, показать русинок....
3
Определите силу электролита H2SO3 , H3PO4, HMnO4, HClO4, LiOH, HBr, Sr(OH)2,...
1
107Б. Почему в пословицах употребляются глаголы 2-го лица един- ственного...
2
Но несмотря на свое спортивное телосложение ,верблюды передвигаются очень...
2
Каково значение этой структуры в жизнедеятельности клетки?...
1
решить на листике кто действительно понимает с условием Органическая кислота...
2
Сочинения про как наша семя принила участие в выборах...
1
Повідомлення або есе на тему Текст...
3
// Внимание! Если программа не работает, обновите версию!
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