Viết chương trình nhập tử và mẫu và rút gọn phân số (Tử mẫu nhập từ bàn phím và dùng hàm Procedure hoặc function để 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);
writeln('---');
readln(b);
rutgon(a,b);
writeln('Sau khi rut gon: ');
writeln(a);
writeln('---');
writeln(b);
end.
