Норберт Винер, работая «…с инженерами, врачами, биологами, он осознал глубокое внутреннее единство многих задач, возникающих в разных областях. Оказалось, что многие изучаемые процессы или проектируемые системы описываются одними и теми же математическими моделями и предполагают сходные пути решения поставленных задач. Более того, во множестве случаев управляемую или изучаемую систему можно рассматривать как «чёрный ящик», который в ответ на данные воздействия дает вполне определённые реакции, независимо от того, что находится внутри этого «ящика». Двигаясь по пути, намеченному Н. Винером, удалось ввести очень важное и для теории управления, и для других областей знания понятие обратной связи, построить концептуальные и математические модели».
program test;
var
n, m: integer;
max: integer;
count: integer;
number: integer;
i: integer;
function GetDividersCount(number: integer): integer;
var
limit: integer;
count: integer;
i: integer;
begin
limit := number div 2;
count := 0;
for i := 1 to limit do
if number mod i = 0 then
count := count + 1;
result := count;
end;
begin
write('Enter range: ');
read(n, m);
max := 0;
for i := n to m do
begin
count := GetDividersCount(i);
if max < count then
begin
max := count;
number := i;
end;
end;
writeln('Result: ', number);
end.