Đáp án: 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ụ PSTGINP 2 8 PSTGOUT 1 4 - Const Fi=ʹPSTGINPʹ; Fo=ʹPSTGOUTʹ;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

Canloigiaigap

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

Xem đáp án

1 câu trả lời

YiYi Đức Nhật

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.