Решение 50 типовых задач по программированию на языке Pascal Дата размещения сборника в сети

Данил Душистов: «Решение 50 типовых задач по программированию на языке Pascal» 
28 
(
)
(
)
НОК ,
НОД ,
m n
m n
m n
⋅
=
Следовательно, для нахождения ответа нам нужно лишь использовать предыдущую задачу 
нахождения НОД двух чисел m и n: 
while m <> n do begin 
if m > n then begin 
m := m - n 
end 
else begin 
n := n - m 
end 
end; 
Так как исходные переменные будут испорчены в процессе работы алгоритма Евклида, нам 
нужно вычислить их произведение до входа в описанный выше цикл и присвоить это произведение 
переменной prod (от англ. product – «произведение»): 
prod := m * n; 
После этого нам остается вывести на экран результат арифметического выражения в правой 
части нашей формулы. В качестве самого НОД будет использоваться переменная m: 
writeln(prod div m); 
Кстати, деление в формуле будет целочисленным (через div) именно потому, что если два 
числа делятся на некоторое число, то и их произведение также делится на него. 
Код: 
1.
program LeastCommonMult; 
2.
3.
var 
4.
m, n, prod: word; 
5.
6.
begin 
7.
readln(m, n); 
8.
prod := m * n; 
9.
while m <> n do begin 
10.
if m > n then begin 
11.
m := m - n 
12.
end 
13.
else begin 
14.
n := n - m 
15.
end 
16.
end; 
17.
writeln(prod div m) 
18.
end. 
Задача № 24. Вычислить x
n
 
Формулировка. Даны натуральные числа x и n (которое также может быть равно 0). Вычис-
лить x
n
. 
Решение. Для того чтобы решить эту задачу, вспомним определение степени с натуральным 
показателем: запись x