Найти сумму N первых чисел фибоначчи

11.10.2010, 21:40. **Показов** 15087. **Ответов** 2

Найти сумму N первых чисел фибоначчи

через цикл for

Pascal

program zd421;
var i,n,s,f,f1,f2:integer;
begin
s:=0;f1:=1;f2:=1
for i:=1 to n do begin

N вводим шапка есть а что дальше не знаю((
И еще одна задачка:
Найти среди чисел sin1,sin2,sin3,.... первое, отличающищее от целлого меньше,чем на заданое Е(эпсилант)>0
Ищу помощи

@katya · 14.05.2013, 22:00

Помогите решить пожалуйста такую же задачу!

@MyMind · 14.05.2013, 22:19

Числа Фибоначчи

Pascal

var i, n: integer;
    s, f1, f2, c: longint;
begin
write('Enter n: ');
read(n);
s:=0;
f1:=1;
f2:=1;
for i:=1 to n do begin
        s:=s+f1;
        c:=f1;
        f1:=f2;
        f2:=c+f2;
end;
write(s);
End.

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
	14.05.2013, 22:00	2
	Помогите решить пожалуйста такую же задачу! 0

Опции темы