uses crt;
var i,a,b:longint; d:text;
begin
clrscr;
assign(d,'PSTG.inp');reset(d);
readln(d,a,b);
close(d);
assign(d,'PSTG.OUT');rewrite(d);
i:=a;
while(a mod i<>0)or(b mod i<>0)do dec(i);
writeln(d,a div i,' ',b div i);
close(d);
end.
///////////////////////////////////////////////
Giải thích:
Chỗ dòng while đó là mình cho i là bằng a(ucln thì luôn bé hơn hơn hoặc bàng 1 tronng 2 số)
Giảm cho đến khi i là UC của 2 số
Chúc bạn hộc tốt!!!!!
Có gì không hiêu hay code có chỗ nào chưa hợp lí thì để lại bình luận nha:))))