Разработать программу для расчёта площади

поверхности и объёма шара известного радиуса.

Question

Сашуля

17 июня, 08:59

+1

Ответы (1)

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

Александрыч · Answer 1

Uses crt;

var r:integer;

v, s:real;

begin

readln (r) ;

s:=4*pi*r*r;

writeln (s) ;

v:=4/3*pi*r*r*r;

writeln (v) ;

end.

Разработать программу для расчёта площадиповерхности и объёма шара известного радиуса.