Составить программу вычисления первых N чисел Фибоначчи

@Danger Dominik · Регистрация: 17.11.2009

Составить программу или подпрограмму.Вводимое число может содержать до 10-ти цифр. Организовать красивый вывод результатаработы программы.программа должна содержать коментарии поясняющие работу программы.

Задача:
Составить программу вычисления первых N чисел Фибоначи (Числа Фибоначи 1,1,2,3,5,8. и т.д. Т.е каждое последующее число равно сумме двух предыдущих).

@C.J. · 22.02.2010, 00:41

Pascal

var
a,b,n,f,i,s:integer;
begin
write('n= ');
readln(n);
a:=1;
b:=1;
s:=2;
for i:=3 to n do
begin
f:=a+b;
a:=b;
b:=f;
s:=s+f;
end;
writeln(s);
readln;
end.

В n введёшь 10

Добавлено через 11 минут
Ну или вместо 10 любое число элементов

@Danger Dominik 1 / 1 / 0 Регистрация: 17.11.2009 Сообщений: 30
		1
	Составить программу вычисления первых N чисел Фибоначчи 22.02.2010, 00:07. Показов 8410. Ответов 1 Метки нет (Все метки) Составить программу или подпрограмму.Вводимое число может содержать до 10-ти цифр. Организовать красивый вывод результатаработы программы.программа должна содержать коментарии поясняющие работу программы. Задача: Составить программу вычисления первых N чисел Фибоначи (Числа Фибоначи 1,1,2,3,5,8. и т.д. Т.е каждое последующее число равно сумме двух предыдущих). __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составить программу вычисления первых N чисел Фибоначчи

Решение