Найди объём шара, если длина радиуса вводится с клавиатуры. Объём шара вычисляется по формуле: V=43π⋅R3. Опиши константу: π=3,14 и ответ должен быть округлён до десятых. Выведи ответ, если длина радиуса 6.

Відповідь:

Const

  Pi = 3.14;

Var

  R:real;

Begin

Write('R = ');

ReadLn(R);

WriteLn('V = ',(4/3*Pi*R*R*R):0:1)

End.

Пример:

R = 7

V = 1436.0

Пояснення: