Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
дарья1646
08.02.2022 00:55 •
Информатика
Среди чисел последовательности 1,2,3,5,8, следующий член последовательности равен сумме двух предыдущих),найдите количество чисел до первого шестизначного. ,паскаль авс
Показать ответ
Ответ:
kuytdrg87
02.10.2020 13:38
ответ - 29
var
f, f1, f2: longint;
n: integer;
begin
f2 := 1;
f1 := 2;
n := 2;
repeat
f := f1 + f2;
n := n + 1;
writeln(n,' - ',f);
f2 := f1;
f1 := f;
until f >= 1000000;
writeln(n - 1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
никита3497
12.04.2021 23:14
В ячейке B3 формула =$А$1+В5. Чему равен результат копирования формулы из в3 в ячейки с5, д4, е...
Ilya333444
23.11.2020 11:24
Как в pascal обозначаются натуральные числа? как описать переменную в программе, если указано, что это должно быть именно натуральное число? это ведь не integer, и не...
VetaRo
04.06.2023 05:20
Заполните пропуски в программе решения сс14 из встроеного так, чтобы она работала верно...
Сергей0081
23.08.2022 21:56
9) что позволяет передавать электронная почта (e-mail)? только файлытолько текстовые документытолько текстовые сообщениятекстовые сообщения и вложенные файлы10) ячейка,...
maxim199431
14.11.2021 22:08
Черно-белое (без градаций серого) графическое изображение имеет размер 58×58 точек. какой объём памяти займёт это изображение?...
альбина349
02.10.2020 20:07
Java дан файл f, компонентами которого являются целочисленные массивы a1, a2, a8. требуется преобразовать каждый из массивов, заменив элементы с наибольшим значением...
рапкмаркмарк
19.06.2021 00:57
Автоматическая фотокамера каждые 10 с создаёт черно-белое растровое изображение, содержащее 256 оттенков. размер изображения – 512 x 192 пикселей. все полученные изображения...
59494920948583
06.02.2020 02:14
Камера снимает видео без звука с частотой 120 кадров в секунду, при этом изображения используют палитру, содержащую 224 = 16 777 216 цветов. при записи файла на сервер...
NastyaZl
07.01.2023 03:19
Заполните таблицу, указав, какое по необходимо людям в ситуациях.системное поприкладное посистемы программированияученые- производят расчеты при построении поверхностей...
marinkaa5
01.04.2022 22:36
Найдите коэффициент при одночлене w(x^5)(y^3)(z^2) в разложении (7w - 2x + 3y - z)^11...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
f, f1, f2: longint;
n: integer;
begin
f2 := 1;
f1 := 2;
n := 2;
repeat
f := f1 + f2;
n := n + 1;
writeln(n,' - ',f);
f2 := f1;
f1 := f;
until f >= 1000000;
writeln(n - 1);
end.