Ответ(ы) на вопрос:
Dim R As Single, p As Single, h As Single, V As Single
p = 3.1415926
R = InputBox("Введите радиус основания")
h = InputBox("Введите высоту цилинтра")
V = p * R ^ 2 * h
MsgBox V
Не нашли ответ?
Похожие вопросы