Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Программа НОК и НОД - Паскаль

Здесь приведен код программы на языке Паскаль. Программа вычисляет НОД и НОК с использованием алгоритма Евклида. Наибольшим общим делителем (НОД) для двух целых чисел m и n называется наибольший из их общих делителей. Приведем пример: для чисел 70 и 105 наибольший общий делитель будет равен 35. НОД существует и однозначно определён, если хотя бы одно из чисел m или n не ноль. Наименьшее общее кратное (НОК) двух целых чисел m и n есть наименьшее натуральное число, которое делится на m и n. Например, для 3 и 5, НОК равен 15, а для 2 и 4 НОК равен 4.
program nodnok;
var a,b:longint;
function NOD(x,y:longint):longint;
 begin
 if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;
function NOK(x,y:longint):longint;
 begin
 NOK:= (x div NOD(x,y)) * y;
 end;
Begin
 Write('Введите a и b: '); 
 Readln(a,b);
 Writeln('НОД ',a,' и ',b,' = ', NOD(a,b));
 Writeln('НОК ',a,' и ',b,' = ', NOK(a,b));
Readln;
End.
 Похожие публикации: Pascal

Войти и комментировать [ Вход | Регистрация ]