задача:Паскаль и ряд чисел Фибоначчи

[SEREG@]

Плиз помогите решить задачу в паскале на ряд чисел Фибоначчи.Вот задача:
Вывести с помощью оператора цикла со счетчиком напечатать на экране 10 чисел ряда Фибоначчи начиная с 11(с 11 по 20).Плиз помогите решить как можно быстрее,а то на завтра надо задачу решить,плиз.Заранее спасибо.

[Рустам]

че за Фибоначчи?

[Карась]

видимо про его ряды и кроликов

[SEREG@]

Сообщение от Рустам

че за Фибоначчи?

Типо был такой ученый Фибоначчи,он создал последовательность чисел типо,что каждое следующее число будет находиться по сумме 2х пердыдущих,например:
последовательность 1,2,3,5,8,13,21 и т.д.
1+2=3 ,2+3=5,3+5=8,5+8=13,8+13=21 и т.д.
Вот по такой последовательности надо составить задачу.Условие дано в 1ом сообщении.
Плиз помогите решить как можно скорее,на завтра задали,сказали если решу 5 в зачетку автоматом поставят(а у меня еще поидее экзамен).

[Карась]

Смотрим формулу и составляем программку... несложно..

http://ru.wikipedia.org/wiki/%D0%A7%...87%D1%87%D0%B8

[SEREG@]

Сообщение от Карась

Смотрим формулу и составляем программку... несложно..

http://ru.wikipedia.org/wiki/%D0%A7%...87%D1%87%D0%B8

Я то формулу знаю,но в задачи не втыкаю,если тебе несложно составь задачу и напиши плиз,каеф 5 в зачет получить.

[Рустам]

for i:=11 to 20 do writeln(i+(i+1));
так, или я не так понял?

[Рустам]

ssory! не так понял!!!

[Рустам]

a:=10;
b:=a+1;
c:=a+b;
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
write(c,' ');
end;

[SEREG@]

Сообщение от Рустам

a:=10;
b:=a+1;
c:=a+b;
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
write(c,' ');
end;

А полная версия будет выглядеть так?: (если че потправь)
Program Imya;
Var
a,b,c,i:integer;
begin
writeln ('ввести ряд чисел');
b:=a+1;
c:=a+b;
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
writeln('c=',c);
end;
end.
Так чтоли?Большое спасибо,что ответил,помоги еще плиз.Так надо еще по условию вывести на экран 10чисел ряда Фибоначчи начиная с 11 по 20.Тут в задаче этого нету.