- Просмотров: 6861
- Комментариев: 0
- Подписаться на обновления
- Печатать
- Поделиться
Найти наименьшее общее кратное двух натуральных чисел. Паскаль ABC
Задание: Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел.
Формулировка. Даны два натуральных числа. Найти их наименьшее общее кратное.
Примечание: наименьшим общим кратным двух чисел m и n называется наименьшее натуральное число, которое делится на m и n. Обозначение: НОК(m, n)
Редактировалось Дата:var M,N,nok: integer;
begin
readln(M,N);
nok:=m*n;//вычисляем произведение до входа в цикл
while M<>N do //проверяем числа на неравенство
begin
if M>N then// выбираем большее число
M:=M-N //находим наибольший общий делитель
else
N:=N-M
end;
writeln (nok div M)//с момощью оператора div (целочисленное деление) находим НОК
end.