СРОЧНО!
Необходимо реализовать поиск НОД (ниабольший общий делитель) и НОК (наименьшее общее кратное) для двух чисел, вводимых пользователем. (на вход подаются два целых числа, ожидаются два целых числа в ответ)
Пример входных данных: 124, 256; пример выходных данных: НОД: 4, НОК: 7936
Язык - Pascal
Необходимо реализовать поиск НОД (ниабольший общий делитель) и НОК (наименьшее общее кратное) для двух чисел, вводимых пользователем. (на вход подаются два целых числа, ожидаются два целых числа в ответ)
Пример входных данных: 124, 256; пример выходных данных: НОД: 4, НОК: 7936
Язык - Pascal
Answers & Comments
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.