№2
var d, n, i: integer;
begin
d:=1;
n:=24 div 3;
for i:= 1 to n do
begin
d:=d*2;
writeln('Количество амеб через ', i*3, ' часов: ', d);
end;
<span>end.</span>
145(8)=1100101(2)
A7(16)=10100111(2)
складываем
1 1 0 0 1 0 1
1 0 1 0 0 1 1 1
------------------------
1 0 0 0 0 1 1 0 0
- 1 0 1 0 вычитаем
----------------------
1 0 0 0 0 0 0 1 0
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;