Всегда высокую роль.
Вот подумай сами.
Вещество - это ресурс для чего либо, ресурс хотя бы минимум для выживания. Если мы не будем есть то умрем.
Энергия нужна чтоб делать что-то. Когда нет сил, то ничего не сделаешь, а будешь валяться пластом. Даже чтоб есть нужна энергия, чтоб живать, глотать, переваривать и тд
Информация это знание. Даже элементарно, чтоб поесть, надо знать где найти еду, как ее приготовить, что можно есть, а что нельзя и тд.
Вывод - не зависимо от этапа развития всегда желателен баланс ресурсов, энергии и информации.
Текcтовая .dok а графическая .pas (файлы)
Uses Crt;
Const
N = 39;
Var
X:array[1..N] of integer;
i,j,k:integer;
Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
Begin
X[i]:=random(53)-15;
if X[i]<30 then
Begin
TextColor(12);
k:=k+1;
End
else TextColor(7);
Write(X[i],' ');
End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
For j:= 1 to N-1 do
if X[j]>X[j+1] then
Begin
k:=X[j+1];
X[j+1]:=X[j];
X[j]:=k;
End;
k:=0;
For i:= 1 to N do
Begin
Write(X[i],' ');
j:=X[i];
While j div 10 <> 0 do
j:=j div 10;
if (j = 2)or(j = -2) then
k:=k+1;
End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.
Відповідь:
Динамическая модель может изменять свою позицию, а статическая остается на месте
Пояснення:
1.28
2.8
3.32
4.b:=5. c:=5
5.<span>b:=6. c:=3
6.</span><span>b:=6. c:=0
7.</span><span>b:=0. c:=3</span>