Вопрос ученика
даны натуральные числа x и y. вычислите их НОК.задача для паскаля!помогите пожалуйста срочно надо
Ответ учителя
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;
