Переведите код на питоне в паскаль Вот код
start, end = 586132, 586430

def allDivs( x ):
divs = [1, x]
d = 2
while d*d <= x:
if x % d == 0:
divs.append( d )
if x // d > d:
divs.append( x//d )
d += 1
return sorted(divs)

minDivs = [ ]
maxDivs = [ ]
for x in range( start, end+1 ):
divs = allDivs( x )
if len(divs) >= len(maxDivs):
maxDivs = divs
if len(divs) > len(minDivs):
minDivs = divs

print( len(minDivs), minDivs[-1], minDivs[-2] )
print( len(maxDivs), maxDivs[-1], maxDivs[-2] )

👇

Открыть все ответы

Ответ:

милка327

09.01.2023

сервера и устройства при здании обычно используют глобальную беспроводную сеть. зависимости от предпочтений предпринимаделя или от преследованиякаких-то премуществ в банки могут использоваться такие разновидности проводных сетей: ячистая,звезда иерархическая звезда, шина, кольцевая. Большинство предпринимателей среднего бизнеса и заведующие банковскими институтами используют иерархическую сеть. она удобна тем что устройства зависят только от комунатора имеет меньше риска повреждения а вотличии от простой звезды иерархическая удобна если здание имеет очень много серверов и устройств их расспределяют группами это удобно если самой предпренимательстве идут деления что удобно поискам и сортировки серверов

так что я считаю банк имеет проводную локальную сеть виде иерархической звезды

4,5(55 оценок)

Ответ:

malinkarinka599

09.01.2023

Пусть $l=x_0<x_1<\dots<x_n=b$ - какое-то разбиение отрезка [a, b]. Формулой левых прямоугольников называется приближение

$\displaystyle \int_a^b f(x)\,dx\approx\sum_{i=0}^{n-1} f(x_i)(x_{i+1}-x_i)$

Часто выбирают равномерное разбиение, в котором все точки расположены на одинаковом расстоянии h = (b - a) / n, при этом x_i=a+ih .

Реализация (PascalABC.NET): функция int_lr принимает подинтегральную функцию, левую и правую границы отрезка интегрирования и количество отрезков в разбиения. В основной программе интеграл вычисляется для n = 1, 2, 4, 8, ..., 1024, выводится n, результат численного интегрирования и разность между полученным значением и точным значением интеграла. Можно заметить, что при увеличении n в 2 раза ошибка уменьшается примерно в 2 раза.

function int_lr(f: real-> real; l, r: real; n: integer): real;

begin

var h := (r - l) / n;

var s := 0.To(n - 1).Select(i -> f(l + i * h)).Sum;

result := s * h;

end;

const exact = 1250 / 3;

begin

var n := 1;

for var _ := 1 to 11 do

begin

var int := int_lr(x -> (x - 5) ** 2 * (10 - x), 0, 10, n);