Sub Main()
Dim a(9) As Double
a(0) = (Math.PI + 0.03 * 10 ^ -3) / Math.Log(Math.Sqrt(15 * Math.E) - 0.2 * 10 ^ -4) + 10 ^ (4.2 - 0.67)
a(1) = 3.95 + (1 / 20) ^ 2 + 1 / 900
a(2) = (2.75 * 10 ^ 2) / Math.Sqrt(14.3 + Math.PI)
a(3) = 2 ^ (Math.Log(0.34 - 10 ^ 3) - (0.16 - 5.27) / 0.029)
a(4) = (Math.Sqrt(0.079 / 3.5 - 6.1 * 10 ^ -5) + 0.4) * (Math.E ^ (0.7 / 9 + 0.8) - 1.5)
a(5) = (Math.Sqrt(7.65) + 4.1 * 10 ^ -3) ^ 2 / Math.Log(3.17 ^ 2 + 3.752) - Math.Sqrt(1 / 0.46 - 0.9)
a(6) = Math.E ^ (Math.PI / 4) * Math.Log(3 * (17.8 ^ 2 - 0.139 * 10 ^ 2)) + 2.3 * 0.69 / 1.5
a(7) = 6.7 * (1 / (Math.PI + 5.04) + 10 ^ (0.198 * Math.Sqrt(3.2))) - 0.36 * 10 ^ -3
a(8) = (10 ^ (1 / 3) - Math.Log(4.25 + 1 / 7) + 0.89 * 10 ^ -4 * 1.2) / (Math.E + 6)
a(9) = 0.09 * (Math.Log(0.41 * 10 ^ -3 + Math.Sqrt(0.26 * 10 ^ -5)) + Math.Sqrt(5.68 - Math.Sqrt(3)) - Math.E ^ (3 * 7))
Console.WriteLine(a(0))
Console.WriteLine(a(1))
Console.WriteLine(a(2))
Console.WriteLine(a(3))
Console.WriteLine(a(4))
Console.WriteLine(a(5))
Console.WriteLine(a(6))
Console.WriteLine(a(7))
Console.WriteLine(a(8))
Console.WriteLine(a(9))
Console.Read()
End Sub
Знаю, можно было вывод сделать циклом, но у меня не получилось ._.
