{* Задача322 *}

REM basic

' Составить подпрограмму нахождения объема шара, зная его радиус. С помощью данной подпрограммы вычислить объем для трех шаров.


Declare Function RADIUS! (R!)
CLS
For I = 1 To 3
INPUT R
PRINT "Obiem shara nomer"; I; ": "; RADIUS(R)
Next I
 
 
Function RADIUS (R)
Dim PI As Double
PI = 3.1415926535898#
V = 4 / 3 * PI * R ^ 3
RADIUS = V
End Function