#include <iostream>
using namespace std;
int main(){
int n, j=0;
cin>>n;
unsigned long long arr[3*n+1];
unsigned long long arrb[n];
arr[0]=0; arr[1]=1;
for (int i=2; i<3*n+1; ++i) arr[i]=arr[i-1]+arr[i-2];
for (int i=3; i<3*n+1; i+=3, ++j) arrb[j]=arr[i];
for (int i=0; i<n; ++i) cout<<arrb[i]<<" ";
}
var
i, k, n: integer;
begin
read(n);
for i := 10 to 99 do
if i mod 10 + i div 10 = n then begin
writeln(i);
k := k + 1;
end;
writeln('k = ', k);
end.
Скинь фотку ребуса''''''''''
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, -99, 99);
a.Println;
var M := ReadInteger('Сколько последних взять?');
if m > n then
Println('Не нужно жадничать!')
else
Println('Сумма', m, 'последних равна', a.TakeLast(m).Sum)
end.