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 = ');
|
