СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
Информатика
Сайты, меню, вход, новости


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

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

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

1 2 7 14

 

Ответ:

Решение.

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

 

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

var

x, numDel, i, j: longint;

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

begin

for i := 185311 to 185330 do begin

numDel := 0;

for j := 1 to i 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.

 

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

1 2 92657 185314

1 47 3943 185321

1 241 769 185329