Question

Найди объём шара, если длина радиуса вводится с клавиатуры.

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

Answer 1

Ответ:

Объяснение:

program Volume;

var r: integer;

var v: real;

Const pi = 3.14;

begin

Writeln('Введите радиус');

Readln(r);

v:=4*3*pi*(r*r*r);

if r=3 then

Writeln('Объём шара равен: ', v:5:1);

else

Writeln('Радиус не равен 3, поэтому ответ я не дам');

end.