Задать вопрос Регистрация
Помочь другим

  • вычислить сумму всех чисел фибоначчи ,которые меньше тысячи

Ответы 1

  • a[1] := 1;

    a[2] := 1;

    i := 3;

    sum := 0;

     

    while (a[i] < 1000) do

      begin

        a[i] := a[i - 1] + a[i - 2];

        inc(i);

    end;

     

    for j := 1 to i do

      sum := sum + a[i];

     

    write(sum); 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years