1) От хаоса к порядку:
- на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы;
- рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки
2) От порядка к хаосу происходит переход во время землетрясения (нарушение жизни растений животных, почв, рельефа и тд), штормов, цунами, ураганов и тд
3) Информационные сигналы: человеческая речь - звуковые сигналы, видео - информационные сигналы для органов зрения - результат обрабатывается в головном мозге
4) Генетическая информация нужна для передачи новым поколениям опыта приспособления живых организмов к окружающей среде, например, цвет кожи для жителей разных климатических поясов.
1.
var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
begin
if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
x := x div 10
end;
write(s)
<span>end.
2.
var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
x := x div 10;
write(x + s)
<span>end.
3.
var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
begin
if x mod 10 > a then a := x mod 10;
if x mod 10 < b then b := x mod 10;
x := x div 10;
end;
write(a + b)
<span>end.</span></span></span>
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
1. Включить и проверить работу кулеров
2. Нажать кнопку Power
3. Ждать 15 минут для полной прогрузки ОС
4. Проверить температуру всех частей пк программой AIDA
5. Ввести пароль
6. Начать работу
