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

Question

Информатика

Кириллыч

3 марта, 16:29

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

+4

Ответы (1)

Знаете ответ на вопрос?

Петюся · Answer 1

Var radius: Integer;

begin

Read (radius) ;

if (radius<0) then

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

else

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

end.