Question

СРОЧНО!
Необходимо реализовать поиск НОД (ниабольший общий делитель) и НОК (наименьшее общее кратное) для двух чисел, вводимых пользователем. (на вход подаются два целых числа, ожидаются два целых числа в ответ)
Пример входных данных: 124, 256; пример выходных данных: НОД: 4, НОК: 7936
Язык - Pascal

Answer 1

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.