17,25(10) = 16+1+1/4 = 2^4+2^0+2^(-2) = 10001,01(2)
1110,111(2) = 2^3+2^2+2^1+2^(-1)+2^(-2)+2^(-3) = 8+4+2+1/2+1/4+1/8 = 14,875(10)
34,131(8) = 3*8^1+4*8^0+1*8^(-1)+3*8^(-2)+1*3^(-3) = 24+4+1/8+3/64+1/512 = 28,<span>173828125
1A,4B(16) = 1*16^1+10*16^0+4*16(-1)+11*16^(-2) = 16+10+4/16+11/256 = </span><span>26,29296875
34,13(10) </span>≈<span> 32+2+1/8 = 4*8+2+1/8 = 42,10(8)
</span>
Выпавший шар несет 1/8 информации, или 12,2%
1теробайт так как 1 кл. 1 мб 1гб и 1тр. Из этого выходит то что в 1тр 1000гб
Var i,a,b:integer;
er:boolean;
begin
Repeat
Write('Введите a: ');
Readln(a);
Write('Введите b: ');
Readln(b);
if a*b<0 then begin
er:=true;
Writeln('Ошибка. Корень из отрицательного числа вычислять нельзя.');
end;
until not(er=true);
Writeln('SQRT(a*b) = ',sqrt(a*b));
<span>end.</span>
Лови, что ли. так нужно было сделать?