Фибоначчи

[XAN_SHINGIS]

Ну покажите где что надо изменить!!!

[Artemiosochi]

program cycl_4;
var i,n,f,f1,f2:integer;
begin
writeln ('n=');
readln(n);
f1:=1;
f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
f2:=f1;
f1:=f
end;
writeln (n,'-ое число Фибоначчи = ' ,f)
end.

[Диман56]

много что не так)) подсказка: цикл

[Artemiosochi]

Все работает)

[ZHaN_IK]

скока нужно писать???!!! когда я буду вводить например цифру 1 и после 2 я должен на экране увидеть 3, а затем 5, затем 8, затем 13 и т.д. чего тут непонятного???

мне прост нужна программа на Паскале

Кто-нибудь может решить эту задачу?????????????????

ААААААААААААААААААА??????????????

[hon]

Сообщение от ZHaN_IK

ААААААААААААААААААА??????????????

тебя скоро забанят!

Введи 1000 и увидишь все числа от 1 до 1000. Хочешь, конкретное число из таблици Фибоначи, УЧЕБНИК В РУКИ, А ПОТОМ СПРАШИВАЙ! И почитай ПРАВИЛА форума. Крик только понижает вероятность ответа.

и не пиши транслитом!



Модераторы, закройте тему.

[ZHaN_IK]

не хочу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Poma][a]

program Fibonachi;

var 
         f1, f2, t : LongInt;
         i : Byte;   
begin
         f1 := 1;
         f2 := 1;
         for i := 3 to 25 do begin        
                    WriteLn (f1);
                    t := f1 + f2;
                    f1 := f2;
                    f2 := t;
                    end;
end.

[ZHaN_IK]

Pasiba!! no 4e takoe "LongInt" & "Byte"?????

[Poma][a]

Сообщение от ZHaN_IK

Pasiba!! no 4e takoe "LongInt" & "Byte"?????

типы данных : LongInt это огромное число(2147483647), Byte- мелкое (255) и не забывай про весы))