8^x=32*2^20*2^3 *2^3(бит)
2^3x/8=2^5*2^20/8 (байт)
2^x=2^25 (байт)
x=25
<span>16(в степени х) Кб=16Гб
2^4x*2^10=2^4*2^30 байт
2^(4x+10)=2^34
4x+10=34
4x=24
x=6
</span>
//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
Дерево - размер, шуршание листьев.
Сорока - звуки карканья окраска перьев.
Тюльпан - Арамат, цвет.
Солнце - свет.
Туча с грозой - вспышка,
1703 г.
read(god);
while god <> 1703 do begin
write ('Неправильно!');
read(god);
end;
write('Правильно');
pascal