среди чисел последовательности 1 ,2,3,5,8,13..(каждый последующий член последовательности равен

Среди чисел последовательности 1 ,2,3,5,8,13..(каждый последующий член последовательности равен сумме 2-ух прошлых ) найдите количество чисел до первого шестизначного. помогите .Паскаль авс

Задать свой вопрос
Андрей Приселков
пользуйтесь поиском!!! теснее третий раз решаю за заключительный денек
1 ответ
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 gt;= 1000000;
   
    writeln(n - 1);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт