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('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО М = ');
|
