ước chung lớn nhất: UCLN(a,b);
chạy 1 vòng lặp chưa biết trước (repeat hoặc while) với đk dừng là b=0
trong vòng lặp đó có các lệnh:
r:=a mod b;
a:=b;
b:=r;
bội chung nhỏ nhất: BCNN(a,b)=\(\frac{a\cdot b}{ucln\left(a,b\right)}\)
khi đã tìm ra bội của a,b là s ta làm code như sau:
i:=2;
while s>1 do
begin
if s mod i=0 then begin s:=s div i;write(i);if s>1 then write('*'); end
else inc(i);
end;
khi đã tìm ra bội của a,b là s ta làm code như sau:
i:=2;
while s>1 do
begin
if s mod i=0 then begin s:=s div i;write(i);if s>1 then write('*'); end
else inc(i);
end;