Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу:
5-9 класс
|
А × В = НОД(А, В) × НОК(А, В).
var a, b, c, d, i, n :integer;
procedure swap (a, b :integer; c, d :integer);
begin
if a>b then begin c:=a; d:=a; end
else begin c:=b; d:=a; end;
end;
begin
read (a, b);
swap(a, b, a, b);
for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;
write (a*b/c);
end.
Другие вопросы из категории
Как поездам разъехаться, чтобы продолжить движение дальше?
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
Читайте также
A*B=НОД(A,B)*НОК(A,B)
А × В = НОД(А, В) × НОК(А, В).
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
1.Составить функцию и процедуру, которая определяет сумму всех чисел от 1 до N.
2.Составить программу, которая определяет НОД и НОК двух чисел.