13 lines
329 B
Text
13 lines
329 B
Text
code ChOut=8, CrLf=9, IntOut=11;
|
|
int N, C, Q(100_001);
|
|
[Q(1):= 1; Q(2):= 1; C:= 0;
|
|
for N:= 3 to 100_000 do
|
|
[Q(N):= Q(N-Q(N-1)) + Q(N-Q(N-2));
|
|
if Q(N) < Q(N-1) then C:= C+1;
|
|
];
|
|
for N:= 1 to 10 do
|
|
[IntOut(0, Q(N)); ChOut(0, ^ )];
|
|
CrLf(0);
|
|
IntOut(0, Q(1000)); CrLf(0);
|
|
IntOut(0, C); CrLf(0);
|
|
]
|