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

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

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

2 3 4 6

 

Ответ:

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

Ре­ше­ние.

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

 

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

var

numDel, i, j: longint;

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

begin

for i := 210235 to 210300 do begin

numDel := 0;

for j := 2 to (i div 2) do begin

if i mod j = 0 then begin

numDel := numDel + 1;

if numDel > 4 then break;

d[numDel] := j;

end;

end;

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

end;

end.

 

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

 

for i in range(210235,210301):

k=0

a=[]

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

if i%j==0:

k+=1

a.append(j)

if k>4:

break

if k==4:

print(a)

 

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

2 4 52561 105122

2 4 52567 105134

2 4 52571 105142


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

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