Question

Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. Написать программу на VB

Answer 1

' код на VBScript 5

Sub Zadanie2110767(a,b)
    MsgBox "среднее арифметическое кубов = " & 0.5*(a^3+b^3)
    MsgBox "среднее геометрическое модулей = " & sqr(abs(a*b))
End Sub