Написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы

Question

Информатика

Ладонька

18 августа, 06:21

Написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы

+5

Ответы (1)

Знаете ответ?

Ида · Answer 1

Var radius: Integer;

begin

Read (radius) ;

if (radius<0) then

WriteLn ('Радиус не может быть отрицателен')

else

Writeln (4/3 * pi * exp (ln (radius) * 3)) ;

end.