Информатика 8 класс)
1. Определите и объясните результат формулы ЕСЛИ (А1>0; A1; -A1) , если А1=-5; 0; 7. Какой функцией программы Excel можно заменить функцию?
2. Определите и объясните результат формулы ЕСЛИ (А1<0; "отрицательный" , "положительный"), если А1=-5; 0; 7. Есть ли ошибка в результате?
3. Определите и объясните результат формулы ЕСЛИ (А1>0; "Отрицательный"; ЕСЛИ (А1=0; "равен нулю"; "положительный"), если А1=-5; 0; 7.
4. Какой результат даст формула ЕСЛИ (А1>В1; "А1"; "В1") , если А1=5, С1=3*А1,В1=А1*А1-4*С1?
5. Какой результат даст формула ЕСЛИ (А1<В3; "А1"; "В3")если А1=5, С1=3*А1, В1=А1*А1-4*С1 , а копия ячейки В1 переведена в ячейку В3?
//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.