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

[2Dletti]

Помогите пожалуйста. На одну задачу мозгов хватило на 2 нет. Вот условие:
Дано натуральное число A > 1. Определите, каким по счету числом Фибоначчи оно является, то есть выведите такое число n, что φn=A. Если А не является числом Фибоначчи, выведите число -1

[MisterDie]

var a,n,f1,f2:integer;
begin
write('Введите A>1: ');
read(a);
f1:=1;
f2:=1;
n:=2;
while f1<a do
begin
f1:=f1+f2;
f2:=f1-f2;
n:=n+1;
end;
if f1=a
then writeln('Ответ ',n)
else writeln('Ответ ',-1);
end.

Это если первые две единицы чисел Фибоначчи тоже считаются (если это не нужно, то сотрите n:=2)

1 1 2 3 5 8 13 21 34 ... A

[Poma][a]

Указывайте язык

var
   n, i, f1, f2 : LongInt;

begin
     ReadLn (n);
     f1 := 0;
     f2 := 1;
     i := 1;

     while f2 < n do begin
           f2 := f1+f2;
           f1 := f2-f1;
           Inc (i)
     end;
     if f2 = n then
          WriteLn (i)
     else
         WriteLn (-1)
end.

[MisterDie]

Сообщение от Poma][a

Указывайте язык

var
   n, i, f1, f2 : LongInt;

Скажите, если не трудно, чем отличается вид переменной LongInt от Integer? Сейчас посмотрел - диапазон чисел одинаковый. (от -2147483648 до 2147483647)

[Poma][a]

Что-то мне подсказывает что Вы смотрели диапазон чисел для дельфи, там Integer = LongInt.. В паскале (турбо\фри) Integer [-32000..+32000] пишу по памяти, т.е. точных чисел не помню..

[Naive]

2^15 = 32768

[MisterDie]

Сообщение от Poma][a

В паскале (турбо\фри) Integer [-32000..+32000]

А LongInt?

[BDA]

Идентификатор	Длина (байт)	Диапазон значений
integer		2		-32768..32767	 
byte		1		0..255
word		2		0..65535
shortint	1		-128..127
longint		4		-2147483648..2147483647

http://pascal.guti.ru/types.html

[MisterDie]

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

Идентификатор	Длина (байт)	Диапазон значений
integer		2		-32768..32767	 
byte		1		0..255
word		2		0..65535
shortint	1		-128..127
longint		4		-2147483648..2147483647

http://pascal.guti.ru/types.html

Спасибо, буду знать

[MisterDie]

Сообщение от Poma][a

Что-то мне подсказывает что Вы смотрели диапазон чисел для дельфи, там Integer = LongInt.. В паскале (турбо\фри) Integer [-32000..+32000] пишу по памяти, т.е. точных чисел не помню..

Я смотрел в PascalABC.NET. Longint=Integer [-2147483648..2147483647],
а самый большой вид целочисленных переменных - int64 [-9223372036854775808..92233720368547 75807]
Дельфи у меня даже не стоит.