Viết thủ tục để tối giảm phân số a / b, a,b là hai số nguyên. … Procedure toigian (a,b: integer); …

uses crt;
var a,b:integer;
procedure toigian(a1,b1:integer);
begin
     while a1<>b1 do
        if a1>b1 then a1:=a1-b1 else b1:=b1-a1;
     writeln(a div a1,’/’,b div b1);
end;
begin
    clrscr;
    write(‘Nhap tu so: ‘);readln(a);
    write(‘Nhap mau so: ‘);readln(b);
    toigian(a,b);
readln;
end.

CHÚC CHỦ TUS THI TỐT NHA

#hu_nam

#mlem_mlem