//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.
взял ответ от человека так что не судите стора
a = int(input('Введите длину => '))
b = int(input('Введите ширину => '))
print('S =', a * b)
print('P =', 2 * (a + b))
Задача 1:
a = int(input('Введите число байтов => '))
print(a * 1024, 'килобайт')
Задача 2:
a = int(input('Введите диаметр окружности => '))
print('L =', 3.14 * a)
Задача 3 (что то не так с тестами в твоём задании или с условием):
a = int(input('Введите первое число => '))
b = int(input('Введите второе число => '))
c = int(input('Введите третье число => '))
print('Среднее арифметическое =>', (a + b + c) / 3)
Задача 4:
a = int(input('Введите радиус окружности => '))
print('L =', 6.28 * a)
print('S =', 3.14 * a ** 2)