Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
<em>1) 100001100 = 1∙2^8 + 0∙2^7 + 0∙2^6 + 0∙2^5 + 0∙2^4 + 1∙2^3 + 1∙2^2 + 0∙2^1 + 0∙2^0 = 268</em><span>
<em>2) путем долгого деления получилось 10001001</em>
<em>3 a) </em></span><em>151 = 1∙8^2 + 5∙8^1 + 1∙8^0</em><span><em> = 105</em>
</span><em>3 б) 2C</em><span><em> = 2∙16^</em></span><em>1</em><span><em> + C∙16^</em></span><em>0</em><span><em> = 44</em></span>
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Нужно взять из 1 мешка 1 монету, из 2 - 2 монеты и т.д. из 10 - 10 монет и взвесить!
<span>Если сумма будет 60,4г, то это первый мешок, если 60, 3г, то второй мешок, если 60,2г, то третий и т.д.</span>