1. Dim a As Integer Dim b As Integer Dim h As Integer a = InputBox("Введите а") b = InputBox("Введите b") h = InputBox("Введите h") ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox("Площадь трапеции равна = " & ((a + b) * h) / 2)