//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847
3 кбайт = 3*1024*8=24576 бит
1 мбайт = 1*1024*1024*8=8388608 бит
Write (ndivm +1)
Если не поймете - прокомментирую
Разрядность кода = log(2)8 = 3 (2^3=8)
000, 001, 010, 011, 100, 101, 110, 111