//PacalABC.NET 3.4.2
//Используется формула аналогичная формуле Бине для чисел
//Фибоначчи
const
index = power(33, 0.5);
a1 = power((19 + 3 * index), 1 / 3);
a2 = power((19 - 3 * index), 1 / 3);
b = power((586 + 102 * index), 1 / 3);
var
n: smallint;
function tribonacthi(n: smallint): biginteger;
begin
if (n = 1) or (n = 2) then result := 0
else
result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));
end;
begin
try
n := readinteger('Введите количество элементов для вывода:');
except
on system.formatexception do
writeln('Неверный формат ввода');
end;
for var i := 1 to n do write(tribonacthi(i), ' ');
end.
Например, в маске *r*f* пять символов, ей удовлетворяют нужные имена файлов (mister_fox, from_foxford), но не удовлетворяют ненужные (brave_oxygen – нет f, magic_fox – нет r).
Масок из меньшего количества символов, удовлетворяющих условию нет:
Начальные символы mister_fox и from_foxford разные, так что маски должны начинаться с звездочекАналогично, и заканчиваться они должны на звездочку. Таким образом, два символа маски известныЕсли в маске всего 3 символа, то неизвестный символ – символ, который должен быть в нужных словах, но которого не должно быть в ненужных. В обоих нужных словах есть символы m, r, _, f, o, x, но каждый из этих символов есть хотя бы в одном ненужномЕсли в маске 4 символа, то неизвестная пара символов – символы, стоящие подряд, которые есть в нужных словах и которых нет в ненужных. В нужных словах совпадают только пары символов, входящие в _fox, но этот же фрагмент входит и в magic_fox
