Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ
Эффект анимации движение создаётся покадрово, вначале рисуется первый кадр, будь то это текст или изображение, выдерживается пауза, пусть обычно от 1 до 1000 миллисекунд, затем все что нарисовано стирается, и рисуется тоже самое но с отступом, затем все повторяется, тем самым создается эффект движения
<h3>// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
(4*a.ColCount*'-').Println;
$'Сумма чисел в пятом столбце: {a.Col(4).Sum}'.Println
end.
На что бы не делилась единица, ответом всегда будет единица!
Если число чётное и делится без остатка, тогда операция вернёт ноль; для нечётных - будет именно единица.
Если бы ответом был 0, тогда бы 1 делилась на 2. :)