16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9
Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
При переводе числа 10101011 из 2-ной в 10-ую:
171
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
1. 29:6=4, остаток 5, 4:6=0, остаток 4, итого 45(в шестеричной системе). 29:8=3, остаток 5, 3:8=0, остаток 3, итого 35(в восьмеричной системе). 29:12=2, остаток 5, 2:12=0, остаток 2, итого 25 (в двенадцатеричной).
Ответ:6,8,12
2. 129(10)=1004(q) 129(10)=1*q^3+0*q^2+0*q^1+4*q^0=q^3+4. q=5
ответ: система счисления числа 1004, это 5.