Question

Числа Трибоначчи — это последовательность целых чисел, которая определяетя так: первое, второе и третье числа Трибоначчи равны единице; каждое следующеее число Трибоначчи равно сумме трёх предыдущих. В общем, почти как числа Фибоначчи. Напишите программу, которая вычисляет числа Трибоначчи. Формат ввода Вводится одно натуральное число N. Формат вывода Выводятся первые N чисел Трибоначчи.

Answer 1

var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
 begin
 d:=a+b+c;
 a:=b;
 b:=c;
 c:=d;
 write(' ',d);
 end;
end.

Пример:
15
1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209