//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.
//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.
int main(){ const int kol_tov = 20;
int sbol = 0; int sbol_index = 0; int smal = 0; int smal_index = 0;
int massiv[kol_tov] = { 12, 150, 1230, 332, 531, 1321, 32313, 123123, 123434, 4844, 84847, 48816, 181684, 181, 78616, 81141, 1894, 18974, 91234, 21239 };
smal = massiv[1];
for (int i = 0; i < kol_tov; i++) { if (massiv[i] > sbol) { sbol = massiv[i]; sbol_index = i + 1; } if (massiv[i] < smal) { smal = massiv[i]; smal_index = i + 1; } }
std::cout << "Samoe dorogoe: " << sbol << std::endl << "Samoe deshevoe: " << smal << std::endl << "Index dorogogo: " << sbol_index << std::endl << "Index deshevogo: " << smal_index << std::endl; system("PAUSE");}