1) 13F = 1 0011 1111
2) E98 = 1110 1001 1000
3) <span>10011111 = 9F
4) </span><span>10000001 = 81
5) </span><span>10100011 = A3</span>
Ответ:
Результат:
18.5410 =10 010.100 010 12
Решение:
Приведем целую часть числа 18.54 в систему счисления 2 последовательным делением на число 2:
18/2=9 остаток 0
9/2=4 остаток 1
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
1810=100102
Приведем дробную часть числа 18.54 в систему счисления 2 последовательным умножением на число 2:
0.54·2=1.08=0.08+1
0.08·2=0.16=0.16+0
0.16·2=0.32=0.32+0
0.32·2=0.64=0.64+0
0.64·2=1.28=0.28+1
0.28·2=0.56=0.56+0
0.56·2=1.12=0.12+1
0.12·2=0.24=0.24+0
0.24·2=0.48=0.48+0
0.48·2=0.96=0.96+0
Записав полученные цифры в ряд сверху вниз, получим:
0.5410=0.10001010002
Объединив целые и дробные части, получим решение:
18.5410=10010.10001012
Объяснение:
Под "г" не знаю как...............
<span>///#1program Number1;
var b, xi: Integer;
x, y: Real;
begin
Writeln('Enter number B:');
Read(b);
if (b < 10) then Writeln(2 * b)
else if (b >= 10) then
begin
for xi := -3 to 1 do
begin
x := x + 0.1;
y := sqr(x) - x + (sin(1 / b + x) / cos(1 / b + x));
Writeln('X= ', x:0:1, ' Y= ', y:0:1);
end;
end;
end.
//////#2
var n,j,s:Integer; ser:Real;
X:Array[1..10000] of Integer;
Begin
writeln('Enter N: ');
Read(n);
for j:=1 to n do Read(X[j]);
for j:=1 to n do if (X[j]<-2) or (X[j]>2) then s:=s+X[j];
av:=s/n;
if (av>2) then
begin
X[1]:=1;
X[n]:=1;
end
else
begin
X[1]:=0;
X[n]:=0;
end;
for j:=1 to n do Write(X[j],' ');
end.
/////#3
var n,s,p:Integer;
A:Array[1..10000] of Integer;
Begin
Write('Enter N: ');
Read(n);
for p:=1 to n do Read(A[p]);
for p:=1 to n do
if (A[p]>0) and (A[p] mod 3 <> 0) then s:=s+A[p];
for p:=n div 2 to n do A[p]:=s;
for p:=1 to n do Writeln('Otvet: ',A[p]);
end.</span>
Смотри файл целая часть и дробная переводятся отдельно