Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
begin
KolDel(i,md);
if md>mx then mx:=md;
end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
begin
KolDel(i,md);
if md=mx then write(i,' ');
end;
writeln;
write('количество=',mx);
readln
end.
Пример:
<span>Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12</span>
<span>Адрес Сети - это </span>сетевая часть IP-адреса. Альтернативой адресу являются идентификаторы устройств в форме
символических имён, удобных для запоминания. Например, в пределах
локальной сети — это сетевое имя компьютера, в глобальной сети — доменное имя. Специальные сетевые протоколы (DNS, WINS и т. п.) обеспечивают автоматическое определение соответствия между именами и адресами.
<span>В IP-сетях так же существуют понятия общий сетевой адрес (broadcasting address) и адрес сети.
Например в сети определяемой как 192.168.0.0/24 IP-адрес сети будет
192.168.0.0, а «общий сетевой адрес» — 192.168.0.255. Первый
используется для ссылок на саму себя, последний — для отправки пакетов
на все доступные узлы сети. Поэтому выделяемый диапазон IP-адресов для
узлов (хостов) этой сети (например для сервера с DHCP) будет 192.168.0.1 — 192.168.0.254.</span><span>Понятие сетевого идентификатора так же важно для понимания. IP-адрес по версии IP4 хранится в 32 битах. Запись 192.168.0.0/24 (CIDR)
означает, что маска сети будет 255.255.255.0 — то есть 24 бита являются
сетевым идентификатором, а остальные 8 выделяются под адрес конкретного
узла (например, компьютера) этой сети. Таким образом, в адресе
конкретной машины 192.168.0.100, «сетевой идентификатор» равен
«192.168.0», а адрес машины «100».</span>
<span>1/2 килобайта = 512 байт ( 1 килобайт = 1024 байта )
1/2 килобайта = 4096 бит
</span><span />
Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4
Оно относится к обратной связи (Ну лично по моему рассуждению)
