Составить программу в Turbo Pascal 7, расчитывающую сумму элементов ряда Фибоначчи, попадающих в промежуток [a1;a2], введенных с клавиатуры

1

Ответы и объяснения

2012-10-18T22:52:22+04:00

Program n1;
Uses CRT;
Const n=7;
Var a,b,m,f,g,s: integer;
begin
Writeln('Vvedite znachenia granizy promezhitka');
Readln(a,b);
f:=1;
g:=1;
While f<=b do
begin
If (f>=a)and(f<=b) then s:=s+f;
m:=g;
g:=f;
f:=m+f;
end;
writeln('Summa ravna ',s);
readln
end.