BÀI TẬP 7: PHÂN SỐ TỐI GIẢN

 Viết chương trình nhập vào hai số nguyên dương e và f . Thực hiện rút gọn phân số với hai số nguyên dương trên.

CODE THAM KHẢO:

Program Phan_so_toi_gian;

uses crt;

var e,f,i,a,b,c,d: byte;

begin

    clrscr;

    write('Tu so = '); readln(e);

    write('Mau so = '); readln(f);

    a:=e;

    b:=f;

    writeln('Phan so ban dau: ',e,'/',f);

    while E <> F do

        if E > F then E:=E-F

        else F:=F-E;

        If e <> 1 then

            begin

                a:=a div e;

                b:=b div e;

                write('Phan so toi gian: ',a,'/',b);

            end

        else write('Phan so da toi gian: ',a,'/',b);

    readln

end.