Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
russianbutcher2
08.11.2020 19:07 •
Информатика
Паскаль..заполнить массив из 20 элементов числами фибоначчи и вывести результат на экран.
Показать ответ
Ответ:
Topxic
03.10.2020 21:53
Var ar:array[1..20]of integer;
a,b,c,i: integer;
begin
a := 0;
ar[1]:=a;
b := 1;
ar[2]:=b;
for i:=3 to 20 do begin
ar[i]:=a+b;
c := b;
b := a + b;
a := c; end;
for i:=1 to 20 do write(ar[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Danilkal12
29.07.2020 08:54
Определите с таблиц истинности, какие из следующих формул являются тождественно истинными или тождественно ложными:...
vladdendi
06.01.2023 07:42
Внекоторой системе счисления записаны числа : 425, 221, 101, 123. догадатесь, в какой минимальной системе счисления могут быть записаны эти числа, выберете ответ, в котором все числа...
nik20554888
27.09.2022 13:43
Какой информацитнный объем алфавитная буква. выразите в битах...
Sashalizer
18.02.2021 18:12
Витя и миша по разному используют социальные сети. витя подписан на множество сообществ и любит просматривать ленту новостей,считая, что это повышает его интеллектуальные...
kapusta1337
07.08.2022 09:20
Одно сообщение содержит 120 символов и записано 16-символьным алфавитом, а второе сообщение содержит 96 символов и записано 32 символьным алфавитом. у какого информационного сообщения...
nat17akan
22.12.2022 08:47
7. опишите последовательность действий для получения из исходного текста результата: исходный текст: из лесу елочку взяли мы домой маленькой елочке холодно зимой...
Fracian
01.06.2021 02:00
Для заданного количества (tfh) требуется определить количество часов (h), минут (m), секунд(c). написать линейный алгоритм....
TS1311
21.09.2021 12:11
Порядок выполнения упражнений к тексту: 2. Fill in the gaps (Заполните пропуски): 1. Science and technology …. the development of civilization and help us in our co-operation with...
ivanovartem02
01.01.2021 11:40
Отметьте все факторы почвообразования: КлиматПочвенная эрозиямикроорганизмыГорныепородыветер...
missvarvara2004
16.02.2020 20:30
Математика 136 страница 3 задача...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,i: integer;
begin
a := 0;
ar[1]:=a;
b := 1;
ar[2]:=b;
for i:=3 to 20 do begin
ar[i]:=a+b;
c := b;
b := a + b;
a := c; end;
for i:=1 to 20 do write(ar[i],' ');
end.