Задача (числа фибоначчи)

@Digital_bro · Регистрация: 24.10.2017

Author24 — интернет-сервис помощи студентам

Найти количество чисел Фибоначчи на промежутке от m до n, которые делятся на 3.

@Puporev · 21.10.2018, 14:44

Pascal

//функция определения чисел Фибоначчи
function isFib(n:integer):boolean;
var a,b:integer;
begin
a:=0;
b:=1;
repeat
b:=b+a;
a:=b-a
until b>=n;
isFib:=b=n;
end;
var m,n,i,k:integer;
begin
repeat
writeln('Введите диапазон целых чисел 0<m<n');
readln(m,n);
until(m>0)and(n>m);
k:=0;
for i:=m to n do
if isFib(i)and(i mod 3=0) then inc(k);
write('Количество чисел фибоначчи кратных 3 в интервале [',m,'...',n,']=',k)
end.

@Digital_bro 0 / 0 / 0 Регистрация: 24.10.2017 Сообщений: 12
		1
	Задача (числа фибоначчи) 21.10.2018, 14:21. Показов 2139. Ответов 1 Метки нет (Все метки) Найти количество чисел Фибоначчи на промежутке от m до n, которые делятся на 3. 0

	21.10.2018, 14:44