Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Алёна1478бе
29.11.2022 06:50 •
Информатика
Паскаль..заполнить массив из 20 элементов числами фибоначчи и вывести результат на экран.
Показать ответ
Ответ:
vihshgfgvf
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 оценок)
Популярные вопросы: Информатика
Maria123456789101
21.04.2022 12:55
Какую часть лазерного диска объемом 700 МБ занимает книга, состоящая из 448 страниц? (на каждой странице книги 64 строки по 64 символа)...
рф777
13.05.2023 12:18
Арифметические операции Напишите программу, в которой вычисляется сумма, разность и произведение двух целых чисел, введенных с клавиатуры. Формат входных данных На вход программе...
Pakimon4ikYT
18.08.2020 14:20
З якою метою виконують синхронізацію даних?...
variobukp06vcg
22.07.2022 20:38
Дано целое положительное число n, вещественное число х......
mascamasa
13.06.2022 10:51
Информатика 9 класс / массивы. По возможности с пояснениями...
ПростоРадмир001
04.01.2020 16:59
HTMLУчитель говорит, что тут синтаксическая ошибка ОЧЕНЬ почему картинка не загружается?...
ЭймиКаннет
08.12.2021 11:55
Корни и квадраты Чему будет равно выражение, записанное на языке программирования Паскаль? sqrt(12 * (51 + 7) - 20)...
gwetyalina1345
18.05.2021 22:49
Контрольный вопрос проверите сравнение результатов операций копирования, перемещения и удаления в растровом и векторном графических редакторах ?...
Ydalxa534
19.04.2020 01:55
Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у...
sonya410
19.04.2020 01:55
Елена делает букеты из роз, астр или хризантем. букеты украшает бусинками или бабочками. сколько вариантов букетов существует? нарисуй граф. !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.