Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов а и b

Если нжуен Visual Basic, то

1 2 3 4 5 6 7 8 Option Explicit Private Sub Command1_Click () Dim a, b, S, c As Integer a = InputBox ("Введите сторону а") b = InputBox ("Введите сторону b") S = 0.5 * (a * b) Print "Площадь равна " & S & " кв. ед" End Sub