ТутРешу.Ру

Составить программу в Turbo Pascal 7…

Задание:

Составить программу в 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.




Знаете другой ответ?

Отправить свой ответ