Задача (Фибоначчи) Опции

[Witaliy]

Нужно найти элемент с номер N (1 <= N <= 907) строки. Строка будуеться так: до конца строки последовательно дописывается сдедуеще число Фибоначчи. Получаем:
1123581321...

Например: 6
Выходные даные : 8
Ещё
1
Выход: 1

мой код:

{$n+}
program my;
var  a: array[1..1100] of char;
     l,i : integer;
     s : string;
     arr : array[1..3] of extended;
     n : longint;
begin
l := 2;
a[1] := '1';
a[2] := '1';
arr[1] := 1;
arr[2] := 1;
while l < 1100 do
 begin
 arr[3] := arr[2]+arr[1];
 arr[1] := arr[2];
 arr[2] := arr[3];
 str(arr[3]0,s);
  for i := 1 to length(s) do
   a[l+i] := s[i];

 l := l+length(s);
 end;
readln(n);
writeln(a[n]);
end.

Но он хорошо не работает.

Спасибо.

[volvo]

Но он хорошо не работает.

Для решения этой задачи не надо ни массивов, ничего подобного... Все, что надо - это находить очередное число Фибоначчи, и вычислять его длину (Сколько цифр оно содержит. Напиши для этого функцию). Вычислил, если длина меньше N, значит N уменьшаешь на эту величину, если нет, то значит ты добрался до числа, которое содержит искомую цифру. ТОЛЬКО его переводи в строку (а можно и без этого обойтись), и находи N-ый элемент строки. Особые случаи (N=1 и N=2) обрабатываются отдельно.

P.S. Похоже, что встроенных целочисленных типов, способных работать с такими значениями, в Турбо-Паскале нет... Так что, без длинной арифметики не обойтись.