Bài này nhiều điểm nên mình làm 2 cách nhá, bạn thấy cách nào phù hợp thì tham khảo nha. Nó đều là tìm ước chung lớn nhất.
#Xin hay nhất
C1:
uses crt;
var a,b,i:longint;
begin
clrscr;
write('Tu so: ');readln(a);
write('Mau so: ');readln(b);
i:=a;
while(a mod i<>0)or(b mod i<>0)do dec(i);
writeln(a div i,'/',b div i);
readln
end.
C2:
uses crt;
var a,b,c,d:longint;
begin
clrscr;
write('Tu so: ');readln(a);
write('Mau so: ');readln(b);
c:=a; d:=b;
while c<>d do if c>d then c:=c-d else d:=d-c;
writeln(a div c,'/',b div d);
readln
end.
