Viết chương trình pascal nhập tử và mẫu bất kì và rút gọn phân số (Tử mẫu nhập từ bàn phím và dùng hàm rút gọn)
1 câu trả lời
program Hello;
uses math;
var a,b,i:longint;
procedure rutgon(x,y:longint);
begin
for i:= 1 to a do
if (x mod i = 0) and (y mod i = 0) then
begin
a:= x div i;
b:= y div i;
end;
end;
begin
readln(a,b);
rutgon(a,b);
writeln('Sau khi rut gon: ');
writeln(a, '/',b);
end.
