tìm Bội chung nhỏ nhất (pascal)

2 câu trả lời

uses crt;

var a,b,t:longword;

begin

        clrscr;

        readln(a,b);

        t:=a*b;

        while a<>b do

                if a>b then dec(a,b)

                      else dec(b,a);

        writeln(t div b);

readln;

end.

uses crt;
var a,b,x:longint;
begin
clrscr;
    read(a,b);
    x:=a*b;
    while a<>b do
        if a>b then dec(a,b) else dec(b,a);
    write(x div a);
readln;readln;
end.

Câu hỏi trong lớp Xem thêm