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

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

Question

Асюша

4 октября, 16:15

+3

Ответы (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.

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