1. 

   L&A New Member

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

    

   L&A, 3 янв 2010

   #1
2. 

   Miloslavskij New Member

   a[1] := 1;
   a[2] := 1;
   i := 3;
   sum := 0;
    
   while (a < 1000) do
     begin
       a := a[i - 1] + a[i - 2];
       inc(i);
   end;
    
   for j := 1 to i do
     sum := sum + a;
    
   write(sum); 
   

    

   Miloslavskij, 3 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

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

Запомнить меня