Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Matannoob
14.05.2022 08:26 •
Информатика
Pascalabc.net вычислить n членов ряда фиббоначи . выбор формы цикла на ваше усмотрение.
Показать ответ
Ответ:
milaangel1
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 оценок)
Популярные вопросы: Информатика
alikakusai35
09.12.2020 04:36
Составить программу для вычисления заданных функций в VBA...
aaalino4ka
11.03.2020 20:52
решить! Дан видеофайл, который длится 40 секунд. Известно также, что частота смены кадров составляет 30 раз в секунду. Каждый кадр представляет собой изображение, имеющее разрешение...
aselduishenova
29.05.2023 03:34
Составить программу Pascal вычисления значения выражения:...
20112005505438
17.11.2020 02:21
9. В программе используется целочисленная переменная x. Выберите ПРАВИЛЬНОЕ описание этой переменной: А) Var x:integer; Б) Var x:Real; В) Var x:integer 10. Дана строчка: Var i,j:Real;...
ДиDi15
03.02.2022 14:09
с задание по информатике...
ваня1356
01.10.2020 19:48
Вычислите функцию y=2x+sinx на промежутке 0 x 12...
shuraKotokoto
20.12.2021 06:47
Паскаль var a,b,c,d,x1,x2: integer; begin a: =1; b: =2; c: =1; d: =b*b-4*a*c; if ( d 0) then writeln ( действительных корней нет ) else begin x1: =(b-sqrt(d))/(2*a); x2: =(b+sqrt(d))/(2*a);...
senan52
06.08.2021 13:29
EF||TR, TR - EF = 14S∆TRFE - ?FR =15ΕT = 13...
АбзикВ
15.10.2022 02:54
Сөздерді дұрыс орналастырып, сөйлем құра....
Aizhan190901
06.12.2022 03:56
Задание 1 Внимательно прочитайте текст 2 раза, определите 6 опорных слов и словосочетаний и заполните таблицу. (Прочитайте текст 2 раза, определите 6 опорных слов или словосочетов,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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