Viết ct nhập 2 số nguyên dương từ bàn phím. Tính & xuất BCNN của 2 số đó
Cách 1: (Dùng thuật chia Euclid)
program BCNN;
uses crt;
var a,b,x,y,r:integer;
begin
clrscr;
writeln(‘Nhap a = ‘); readln(a);
writeln(‘Nhap b = ‘); readln(b);
x:=a;
y:=b;
while b<>0 do
begin
r:=a mod b;
a:=b;
b:=r
end;
writeln(‘BCNN cua: ‘,x*y/a);
readln;
end.
Cách 2: (Dùng if then)
program BCNN;
uses crt;
var a,b,x,y:integer;
begin
clrscr;
writeln(‘Nhap a = ‘); readln(a);
writeln(‘Nhap b = ‘); readln(b);
x:=a;
y:=b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln(‘BCNN la: ‘,x*y/a);
readln;
end.