Question

!!!СРОЧНО!!! ДАМ 100 БАЛЛОВ
Найти объем шара радиуса R и площадь его поверхности , решать в паскале

Answer 1

Ответ:

program z1;

var r:real;

begin

write('Введите радиус шара: ');

readln(r);

writeln ('Объём шара: ',4/3*3.14159*r*sqr(r):0:3);

writeln ('Площадь поверхности шара: ',4*3.14159*r*r:0:3)

end.

Объяснение:

Вводим радиус шара

Вычисляем и выводим объём и площадь