PROGRAM PRG2_8;

VAR I, N, M, K, NOD, NOK: INTEGER;

BEGIN

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

ОПРЕДЕЛИТЬ ИХ НАИМЕНЬШЕЕ ОБЩЕЕ КРАТНОЕ NOK }

REPEAT

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

READLN (N);

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

READLN (M);

UNTIL (N>0) AND (M>0);

IF N>M THEN К:= M ELSE К:= N;

FOR I:= 1 TO К DO

IF (N MOD I = 0) AND (M MOD I = 0) THEN NOD:= I;

NOK:= NOD*(N DIV NOD)*(M DIV NOD);

WRITELN('HAИМЕНЬШEE ОБЩЕЕ КРАТНОЕ ЧИСЕЛ');

WRITELN(N, 'И', М, 'NOK =', NOK)

END.

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

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

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

- в цикле от 1 до наименьшего числа порождаем число I и проверяем, является ли оно одновременно делителем М и N;

- запоминаем этот делитель в переменной NOD;

- учитывая, что NOK = NOD*(N DIV NOD)*(M DIV NOD), выводим результат.

Переменные:

N, M - исследуемые числа;

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

NOD - наибольший общий делитель;

NOK - наименьшее общее кратное;

К - наименьшее из М и N.

Задача 2.9 Дано натуральное число N. Определить, является ли оно автоморфным. Автоморфное число п равно последним разрядам квадрата этого числа: 5 <-> 25, 6<->36, 25 <-> 625.

PROGRAM PRG2_9;

VAR N, R, M: INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ, ЯВЛЯЕТСЯ ЛИ ОНО АВТОМОРФНЫМ. АВТОМОРФНОЕ ЧИСЛО N РАВНО ПОСЛЕДНИМ РАЗРЯДАМ КВАДРАТА ЭТОГО ЧИСЛА: 5 <-> 25, 6 <-> 36, 25 <-> 625 }

REPEAT

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