)<span>Вспомогательная классификация создается с целью наиболее легкого отыскания того или иного предмета среди множества классифицируемых предметов.А естественная классификация — это распределение предметов по группам на основании их существенных признаков.</span>
<span>2)<span>Классификации на математике: числа бывают: натуральными(1,2,3); целыми(2, -5); дробными(6,73). На русском: предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными видами связи, сложные бессоюзные.</span></span>
4 Гб = 4096 Мб, 1 Тб = 1048576 Мб, 700 Кб = 0.683594 Мб
Ответ:умножь 200 на 50 и результат умножь на 120
Объяснение:
for k:- 2 to 10 do
if Dat(k) > m then
begin
m :- Dat (k):
day :- k;
end;
Тут мы ищем максимальный элемент и запоминаем его позицию в переменной дей
самые большие в массиве-это шестерки
И первая шестерка имеет номер 9, значит ответ:9
{1}
const
n = 5;
var
a: array [1..n] of integer;
i,k,x,l: integer;
t: boolean;
begin
for i := 1 to n do read(a[i]);
k := 0;
for i := 1 to n do
begin
t := true;
x := a[i]; if x < 0 then x := -x;
l := 1;
while l <= x do l := l*2; l := l div 2;
while t and (l > 1) do
begin
t := x >= l;
if t then x := x - l;
t := t = (x mod 2 <> 0);
x := x div 2;
l := l div 4;
end;
if t then k := k + 1
end;
write(k)
end.
{2}
const
n = 10;
var
a,d: array [1..n] of integer;
i,j,k: integer;
begin
for i := 1 to n do
a[i] := 100 + random(900);
for i := 1 to n do
begin
d[i] := 0;
for j := 1 to a[i] do
if a[i] mod j = 0 then
d[i] := d[i] + 1;
end;
for i := 1 to n-1 do
begin
k := i;
for j := i + 1 to n do
if d[j] < d[k] then k := j;
j := a[k];
a[k] := a[i];
a[i] := j;
j := d[k];
d[k] := d[i];
d[i] := j;
end;
for i := 1 to n do
write(a[i],' ')
end.
{3}
const
n = 10;
l = 3;
var
a: array [1..n] of integer;
m: array [1..l] of integer;
i,j,k: integer;
begin
for i := 1 to n do
begin
a[i] := random(1001);
write(a[i],' ')
end;
writeln;
for i := 1 to l do
m[i] := -1;
for i := 1 to n do
begin
j := 1;
while j <= l do
begin
if (a[i] = m[j]) then j := l else
if (a[i] < m[j]) or (m[j] = -1) then
begin
for k := l downto j+1 do
m[k] := m[k-1];
m[j] := a[i];
j := l
end;
j := j + 1
end;
end;
for i := 1 to l do
if m[i] <> -1 then write(m[i],' ')
end.
