СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Программа, которая подсчитывает количество чисел Фиббоначи от 1 до n.

Категория: Информатика

Нажмите, чтобы узнать подробности

Программа, которая подсчитывает количество чисел Фиббоначи от 1 до n.

Просмотр содержимого документа
«Программа, которая подсчитывает количество чисел Фиббоначи от 1 до n.»

//Числа Фиббоначи - числа, которые строятся по принципу

//a[i]=a[i-1]+a[i-2], например:

// 1 1 2 3 5 8 13 21 34 55 89 144...


Var a1,a2,a3,d,k,i:integer;

begin

readln(d); //d - число, до которого считает

a1:=1;

a2:=2; i:=-2;

k:=2; //k-количество чисел ф.

while a3

a3:=a1+a2;

writeln(a3); //число Фиббоначи

if a3i then inc(k);

a1:=a2;

a2:=a3;

inc(i);

if a1+a2d then break;

end;

writeln(k);

end.