Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Илья164Умникум
21.11.2022 09:37 •
Информатика
Сделать программу на паскале + блок схему 15 .вычислить : 1+2+3+5+8+13+…
Показать ответ
Ответ:
KathrynMay
01.09.2020 14:26
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x=');
var mas:= new real[x]; mas[0]:=1; mas[1]:=2;
for var i:=2 to x-1 do
mas[i]:=mas[i-2]+mas[i-1];
mas.Println;
Writeln('Сумма=',mas.Sum)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
andriybiguniak2
28.05.2021 18:52
15 и лучший ответ укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 37×37 пикселя, если известно, что в изображении...
Katyakim220605
27.02.2020 13:54
1)Напишите процедуру для нахождения наибольшего общего делителя двух чисел с алгоритма Евклида. Используйте её для нахождения наибольшего общего делителя десяти случайных целых...
TheDorams
20.06.2022 00:14
Решите задачу. Происходит набор детей в первый класс, численность которого составляет 32 человека. Какое количество информации получат родители ребенка в сообщении о том, что...
лав35
06.07.2021 03:43
ПАСКАЛЬ!Надо написать программу,которая возводит в квадрат от 1 до 10 и в той же программе возводит в куб от 1 до 15...
Dasha555m
03.12.2021 00:54
Перші олімпійські ігри відбулися в 776 р до н е...
pmangaskin
02.08.2021 10:19
Расставить знаки препинания, указать,в каких предложениях есть вводные слова,а в каких слова походие на них. 1) бежит и слышит за собой как будто грома грохотанье. 2)работали...
MintMartini
30.03.2020 21:47
1. изучив карту и опираясь на свои знания, определите когда и куда совершилпоходы гунский предводитель атилла? опшите эти походы (6)римская империя римконстантинополь...
Бегемот505
23.06.2020 12:40
Предположим, что у кошек ген белой окраски шерсти до- минирует над геном кремовой окраски, ген оранжевого цвета глаз над геном голубого цвета глаз и ген нормального слуха —...
EkimovaVlada
02.03.2020 07:11
4. до підрядних належать усі сполучники рядка: а немовби, проте, але, тому щоб щоб, ніби, коли б, оскількив якщо, також, що, тогначе, нібито, або, хоча5. разом потрібно писати...
4elovek20000
24.03.2023 07:58
Напишіть твір роздум , використовуючи наведені афоризми як цитату : неможна двічі увійти в ту саму річку...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x=');
var mas:= new real[x]; mas[0]:=1; mas[1]:=2;
for var i:=2 to x-1 do
mas[i]:=mas[i-2]+mas[i-1];
mas.Println;
Writeln('Сумма=',mas.Sum)
end.