Составьте пожалуйста программу определения наименьшего общего делителя двух натуральных...

Question

Составьте пожалуйста программу определения наименьшего общего делителя двух натуральных чисел

Comments

на паскале?

---

да

---

там наименьшего обшего или наибольшего(провер условие еще раз)

---

наименьшего

---

наименьшего общего кратного

Answer 1

Program a1;
var  m,n,p:longint;
begin
readln(m,n);
p:= m*n;
while m <> n do
begin
if m>n then begin
m:=m-n
end
else
begin
n:=n-m;
end
end;
writeln(p div m);
end.

Comments

спасибо)