1. X - (sqr(X) / 3) + (sqr(X) / 5);
2. i * n * abs(cos(X)) / i * n * (1 + sqr(X)) = abs(cos(X)) / (1 + sqr(X));
3. (sqr(X) - 7 * X + 10) / (sqr(X) - 8 * X + 12).
110₂=0*2⁰+1*2¹+1*2²=2+4=6₁₀
² ¹ ⁰
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
512 байт = 512*8 бит
Для хранения 1 пикселя необходимо 512*8/(64*64) = 1 бит
Количество цветов = 2^1 = 2