даны натуральные числа x и y. вычислите их НОК.задача для паскаля!помогите пожалуйста...

Question

даны натуральные числа x и y. вычислите их НОК.задача для паскаля!помогите пожалуйста срочно надо

Answer 1

var x,y,nod,nok:longint;

 

begin

 

read(x,y);

 

a:=x; b:=y;

while (a>0) and (b>0) do

if a>b then a:=a mod b

else b:=b mod a;

nod:=a+b;

nok:=(x div nod)*y;

 

write(nok);

 

end;