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

Question

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

Answer 1

35

razkon

19 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: