Lập trình pascal: Nhập số a và số b tương đương với tử số và mẫu số của một phân số. Hãy xuất ra phân số tối giản Ví dụ: PSTG.INP 2 8 PSTG.OUT 1 4
1 câu trả lời
Const Fi='PSTG.INP';
Fo='PSTG.OUT';
Var f,g: text;
a,b,i,u: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,a);
Read(f,b);
U:=1;
For i:=1 to a do
If ((a mod i)=0) and ((b mod i)=0) and (i>u) then u:=i;
a:=a div u;
b:= b div u;
Write(g,a,' ',b);
Close(f);
Close(g);
End.
