mishanyak19991
03.10.2020 03:26

НАПИШИТЕ КОД НА ПАСКАЛЕ вот код на питоне, кто может, перепишите его на паскале
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] )

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
penguin2517
29.11.2020 09:03
Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.
0,0(0 оценок)
Ответ:
89153051060
30.10.2021 12:19
В общем случае, трассировка - один из отладки программ врукопашную: состояние программы контролируется на определённом отрезке времени её выполнения путём анализа значений переменных. трассировка в том или ином виде при отладке программ сложнее школьного дз практически неизбежна.
в простейшем случае, трассировка - вывод значений переменных на экран (например, в окно консоли) , либо расчёт их на бумажке для каждого шага.
в более продвинутом варианте используются точки останова, окно наблюдения, выполнение по шагам и, если есть, контекстный интерпретатор выражений.
есть также специальная "трассирующая консоль" - интерфейс вывода информации из программы в отладчик, если таковой присутствует.
почти любой современный отладчик показывает состояние програмm при её останове, что делает трассировку процессом легко доступным
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота