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.
Но он хорошо не работает.
Спасибо.
