Задание:
Составить программу в Turbo Pascal 7, расчитывающую сумму элементов ряда Фибоначчи, попадающих в промежуток [a1; a2], введенных склавиатуры
Решение:
Program n1; Uses CRT; Const n=7; Var a,b,m,f,g,s: integer; beginWriteln ('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); readlnend.
Знаете другой ответ?