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

Question

Информатика

Ладонька

23 января, 20:46

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

+2

Ответы (1)

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

Ида · Answer 1

Var radius: Integer;

begin

Read (radius) ;

if (radius<0) then

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

else

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

end.