uses crt; var d:text; a,b,i:longint; begin clrscr; assign(d,'input.pas');reset(d); readln(d,a); readln(d,b); close(d); i:=a; while not((i mod a=0)and(i mod b=0)) do inc(i); writeln('Boi chung nho nhat:',i); readln end.
Mình dùng cách là tăng i cho đến khi tìm ra bội chung thì dừng nên đó chính là kết quả!!!
program bai_giai; uses crt; var f:text; a,b,bc:longint; begin clrscr; Assign(f,'KT15.TXT'); reset(F); readln(f,a,b); bc:=a*b; while a<>b do if a>b then a:=a-b else b:=b-a; bc:=bc div a; write(bc); close(f); readln; end.
