64 бит , 1 мб , 1 байт , 2048 кб
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));
begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
var fb:=f(b);
if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
else
if fa*fb>0 then Writeln('На указанном интервале корней нет')
else
repeat
x:=(a + b)/2;
fx:=f(x);
if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
else
if fa*fx>0 then a:=x else b:=x;
until abs(fx)<=eps
end
end.
<u><em>Результат выполнения программы:</em></u>
x=-0.790308952331543, y=-6.74849237825015E-07
Дано
k=150*40*60
i=1байт
v-?
решение
v=ki
v=15*40*60(б)=(50*40*60)/на 2 в 10 степени=351,5625
v=351,5625
Сначала переводим из 16 системы счисления в 10
F9D2=F*16^3+9*16^2+D*16+2=63954
Теперь десятичное число 63954 переводим в 2 систему счисления:
63954/2 =31977 остаток 0
31977/2=15988 ост 1
15988/2=7994 ост 0
7994/2=3997 ост 0
3997/2=1998 ост 1
1998/2=999 ост 0
999/2=499 ост 1
499/2=249 ост 1
249/2=124 ост 1
124/2=62 ост 0
62/2=31 ост 0
31/2=15 ост 1
15/2=7 ост 1
7/2=3 ост 1
3/2=1 ост 1
Записываем 1 и все остатки в обратном порядке, получаем:
1111100111010010 в 2 системе счисления. число занимает 16 ячеек, т.е. 2 байта как и в условии
Получаем ответ: 1111100111010010
3 режим это заливка и контрл С