Объем шара<span> равен четырем третим от его радиуса в кубе помноженого на число пи. где V - </span>объем шара, R - радиусшара<span>, π = 3.141592.
А поточнее V=4/3 (дроб) </span>πR3(в кубе)
===== PascalABC.NET =====
begin
var (a, b, R) := ReadReal3('Введите a, b, R:');
var (x0, h, xn) := ReadReal3('Введите x0, h, xn:');
var (x, k) := (x0, 0);
while x <= xn + h / 2 do
begin
if Sqr(x - a) + Sqr(Sin(x) + Cos(x) - b) <= R * R then
k += 1;
x += h
end;
Print('Количество значений равно', k)
end.
42 будет, если ты об этом
программа,байТ,теробайт,гигабайт,гиг,бит