Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lera784738374
26.05.2020 23:25 •
Информатика
Получить и записать в массив первые 10 чисел фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).
Показать ответ
Ответ:
pdgudkova
17.09.2020 23:24
Const n=10;
var
f:array[1..n] of integer;i:integer;
begin
f[1]:=1;
f[2]:=1;
for i:=3 to n do f[i]:=f[i-2]+f[i-1];
for i:=1 to n do write(f[i]:3);
writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
69fff96fff69
19.11.2021 20:35
В банк под 10 годовых положили 17000 рублей. В какой год сумма станет в 3 раза больше?...
BARBARIC5665
20.04.2020 02:45
вообще не понимаю подобные задачи Напишите программу, которая считывает имена двух файлов. В первом файле записанномер координатной четверти, для которой нужно рассматривать точки,...
aidarisiev80
25.07.2021 08:12
Как в ворде печатать формулы логики?...
romic123
29.10.2022 16:26
Паскаль составить программу найти сумму ряда с точностью =10-3 , общий член которого an = ((3^n)*n! )/ (2n)!...
SAA0807
09.09.2022 00:02
Написать программу вычесления объема параллелепипеда. ниже представлен рекомендуемый вид экрана во время работы программы. введите исходные данные : длинна (см) 9 ширина (см) 7.5...
supernatural54
09.09.2022 00:02
Лазарус: 1. даны символы s1, s2, sn (вводятся одной строкой). а) подсчитать наибольшее количество идущих подряд введенных символов; б) выяснить, верно ли, что в последовательности...
198565
13.12.2022 09:37
Внекотором каталоге хранился файл 5. после того как в этом каталоге создали подкаталог и переместили в созданный подкаталог файл 5, полное имя фала стало е: / класс8/ / / . какого...
VictoriaOrlova32455
13.12.2022 09:37
Даны два текста.1 текст состоит мощностью 256 символов,второй мощностью 512 символов.количество информации в 1 тексте 2кбайта,во втором 90 бит.во сколько раз количество символов...
SherlockAlya
23.06.2022 21:51
Ребят с физикой лафки чмафки ,тех кто выполнит 3...
yanaantonova0
23.06.2022 21:51
Нужна кто хорошо разбирается с матехой ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
f:array[1..n] of integer;i:integer;
begin
f[1]:=1;
f[2]:=1;
for i:=3 to n do f[i]:=f[i-2]+f[i-1];
for i:=1 to n do write(f[i]:3);
writeln;
end.