PROGRAM PRG2_5;

VAR I, N, SUM: INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ, ЯВЛЯЕТСЯ ЛИ ОНО СОВЕРШЕННЫМ. СОВЕРШЕННОЕ ЧИСЛО N РАВНО СУММЕ ВСЕХ СВОИХ ДЕЛИТЕЛЕЙ, НЕ ПРЕВОСХОДЯЩИХ САМО N }

REPEAT

WRITE('BBEДИTE НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

UNTIL N>0;

SUM:= 0;

FOR I:= 1 TO N DIV 2 DO

IF N MOD I - 0 THEN SUM:= SUM+I;

IF SUM - N THEN WRITELN('ЧИСЛО', N, 'СОВЕРШЕННОЕ')

ELSE WRITELN('ЧИСЛО', N, 'HE СОВЕРШЕННОЕ')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим натуральное число N;

- находим все делители числа N, не обязательно простые, и суммируем их;

- в зависимости от значения SUM выводим результат.

Переменные: N - исследуемое число;

I - переменная цикла;

SUM - сумма делителей.

 

ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 6

ЧИСЛО 6 СОВЕРШЕННОЕ

ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 111

ЧИСЛО 111 НЕ СОВЕРШЕННОЕ

 

Рис. 2.3. Результат работы PRG2_5

Задача 2.6 Даны натуральные числа М и N. Определить, яв­ляются ли они взаимно простыми. Взаимно про­стые числа не имеют общих делителей, кроме 1.

PROGRAM PRG2_6;

VAR I, N, M, К: INTEGER;

FLAG: BOOLEAN;

BEGIN

{ДАНЫ НАТУРАЛЬНЫЕ ЧИСЛА М И N. ОПРЕДЕЛИТЬ,

ЯВЛЯЮТСЯ ЛИ ОНИ ВЗАИМНО ПРОСТЫМИ.

ВЗАИМНО ПРОСТЫЕ ЧИСЛА НЕ ИМЕЮТ ОБЩИХ ДЕЛИТЕЛЕЙ,

КРОМЕ ЕДИНИЦЫ }

REPEAT

WRITE('BBEДИTE НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

WRITE('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО М = ');