Question

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

Answer 1

Если нжуен 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