Ответ: Живая природа - это самый яркий пример упорядочивания и самоорганизации. Простые молекулы в живом органцме выстраиваются в очень сложные длинные упорядоченные цепочки, в том числе в такие, как молекулы ДНК. Далее, сам живой организм очень сложно структуируется (клетки, органы и т. д. ) Затем, структуризация происходит на уровне сообществ животных и растений (стада, стаи, климатические зоны и т. п. ) Еще сложнее структурировано человеческое общество.
Но есть и более простые механические примеры перехода от хаоса к упорядочению. Например, автоволны или конвекция жидкости при нагревании.
А самое примитивное, это кристаллизация при охлаждении жидкости.
Наоборот, при нагревании кристалла происходит разрушение кристаллического порядка и переход к хаосу.
Переход к хаосу происходит также при горении.
В биологии разрушение биологического упорядочения и переход к хаосу происходит после смерти организма.
<h2>Пример 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 0 + 4 + 2 = 32 + 4 + 2 = 38₁₀
<h2>Пример 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 128 + 64 + 0 + 8 + 4 + 2 + 1 = 207₁₀
<h2>Пример 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 +32 + 0 + 8 + 4 + 2 + 0 = 174₁₀
<h2>Пример 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127₁₀
Достаточно тривиальное решение. c:
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.