вычислить сумму чисел Фибоначчи начение которых не привосходит 1000,числа f0=f1=0? fi=f(i-2)+f(i-1)? i=2,3,...

на каком языке нужно? помогу обязательно.

Числа Фибоначи < 1000
0
0
1
1
2
3
5
8
13
21
34
55
89
144
233
377
610
987

Сумма 2583

Посчитанно в Excel, если надо вышлю файл

Точно не знаю, но должно быть что - то вроде этого:

procedure TForm1.Button1Click(Sender: TObject);
function fib(n:integer): longint;
begin
if n<2 then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;
var
S, R: Integer;
begin
R:=1;
S:= fib (R);
While S< 1000 do
Begin
R:= R + 1;
S:= fib (R);
end;
Label2.caption:=IntTostr(S);
end;

int f0=0;
int f1=1;
for(int i=0; i<20; i++){ //можно другой цикл взять, если хочется.
int f2=f0+f1;
f0=f1;
f1=f2;
if( f2>1000 ) break;
}
int сумма = f0+f1 -1; //это ответ, второе тождество чисел Фибоначчи

(в ссылке лучше перейти на русский, проще будет ориентироваться)