tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Среди чисел последовательности
Среди чисел последовательности 1,2,3,5,8, следующий член последовательности равен сумме двух предыдущих),найдите количество чисел до первого шестизначного. ,паскаль авс
ivac6136
1 28.06.2019 05:20
5
Ответы
FanatikOutlast
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alehanagaitsewa
02.10.2019 01:50
Для кодирования некоторой последовательности, состоящей из букв а, б, в, г и д, решили использовать неравномерный двоичный код, позволяющий однозначно декодировать двоичную последовательность,...
срочно118
02.10.2019 01:50
Нормализуйте мантиссу в числах: а) 0,0041 *102= б...
PORCH1488
02.10.2019 01:50
Решить (в pascalabc) по информатике.вот текст : «найти суму чисел,не превышающих числа 150,если первое число введено с клавиатуры,а каждое последующее на 10 больше предидущего...
ikikaa54
28.12.2020 14:22
Черепашке был дан для исполнения следующий алгоритм: Повтори 12 [Вперёд 50 Направо 60]. Какая фигура появится на экране?...
bkonok832
28.12.2020 14:23
.Шкідлива програма. 5.З нею працює Excel. 6.Іменована ділянка пам яті для збереження даних одного типу. 7.Батько комп ютерної логіки Джордж ... 8.Всесвітня павутина. 10.В ньому...
holodovika
28.12.2020 14:25
2.Черепашке был дан для исполнения следующий алгоритм: Повтори 7 [Вперёд 70 Направо 120]. Какая фигура появится на экране?...
OoMaRиNкАoO
11.07.2019 21:30
Дан массив a(n). у нечётных элементов отбросить дробную часть числа, а у элементов с индексами, остаток 1 при делении на 3, отбросить целую часть числа. как будет выглядеть программа...
kmelnuk5
11.07.2019 21:30
Некоторое количество стоящих рядом символов, которые можно рассматривать как единое целое.что это?...
muskuss12Ирада
20.05.2019 08:20
Мне с . делайте хоть что-нибудь, только правильно....
PolinaPilipenco
20.05.2019 08:23
Решить, , вроде легко но сбиваюсь...
Популярные вопросы
Сток реки — это объём воды, который река выносит через своё устье в мировой...
2
Яку чарівну здатність мав віяло білого кролика? Аліса в ...
1
Про кого козаки вирішили: «На острові їх тут не буде» (за твором Джури козака...
2
Контрольна робота з української мови ПРИСЛІВНИК 7 КЛАС!...
3
разобраться с домашним заданием! много балов дам и отблагодарю ÆÆÆŁ. 1.создайте...
2
Перетворіть дріб 1/4 у десятковий дріб...
1
Значение выражения AB при а равно 7,6 б равно минус 0,2...
1
Складіть перелік подій з історії держав Азії, які ви вважаєте найважливішими....
3
Первые три номера , буду благодарен....
1
Упростить вираз : 7(а - 3b) - 4(b + 5a). , нужно быстро!! ❤️...
3
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.