Задания
Версия для печати и копирования в MS Word

На­пи­ши­те про­грам­му, ко­то­рая ищет среди целых чисел, при­над­ле­жа­щих чис­ло­во­му от­рез­ку [312614; 312651], числа, име­ю­щие ровно шесть раз­лич­ных на­ту­раль­ных де­ли­те­лей. Для каж­до­го най­ден­но­го числа за­пи­ши­те эти шесть де­ли­те­лей в шесть со­сед­них столб­цов на экра­не с новой стро­ки. Де­ли­те­ли в стро­ке долж­ны сле­до­вать в по­ряд­ке воз­рас­та­ния.

На­при­мер, в диа­па­зо­не [12; 15] ровно шесть раз­лич­ных на­ту­раль­ных де­ли­те­лей имеет число 12, по­это­му для этого диа­па­зо­на вывод на экра­не дол­жен со­дер­жать сле­ду­ю­щие зна­че­ния:

1 2 3 4 6 12

 

Ответ:

Спрятать решение

Ре­ше­ние.

Решим за­да­чу пе­ре­бо­ром. Будем про­ве­рять ко­ли­че­ство де­ли­те­лей каж­до­го числа из диа­па­зо­на, если их ко­ли­че­ство равно шести  — за­пи­сы­ва­ем их в дву­мер­ный мас­сив d. После этого вы­во­дим эти де­ли­те­ли на экран в новой стро­ке.

 

При­ведём ре­ше­ние на языке Pascal.

var

x, numDel, i, j: longint;

d: array[1..6] of longint;

begin

for i := 312614 to 312651 do begin

numDel := 0;

for j := 1 to i do begin

if i mod j = 0 then begin

numDel := numDel + 1;

if numDel > 6 then break;

d[numDel] := j;

end;

end;

if numDel = 6 then writeln(d[1], ' ', d[2], ' ', d[3], ' ', d[4], ' ', d[5], ' ', d[6]);

end;

end.

 

В ре­зуль­та­те ра­бо­ты про­грам­ма долж­на вы­ве­сти сле­ду­ю­щее:

1 2 4 78157 156314 312628

1 3 9 34739 104217 312651

 

При­ведём ре­ше­ние Ми­ха­и­ла Глин­ско­го на языке Python.

for x in range(312614,312651+1):

d = [1,x]

k = 0

for i in range (2,x//2+1):

if x%i==0:

d.append(i)

k+=1

if k>4:

break

if k==4:

d.sort()

print(*d)


Аналоги к заданию № 27851: 27852 27853 Все

Раздел кодификатора ФИПИ: