Question

[Đặng Viết Thái]

Nhập tù bàn phím 2 số nguyên dương a và b

Viết chương trình in ra phân số tối giản \(\frac{a}{b}\)

Ví Dụ: 

nhập từ bàn phím	in ra màn hình
a=5	\(\frac{1}{2}\)
b=10

Pascal 8 

không khó

Answer 1

[Thiện]

uses crt;
var j,i:longint;
        b,a:int64;
begin
clrscr;
writeln('nhap tu va mau');readln(a,b);
if b=0 then writeln('day ko la phan so') else begin
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
end;
if a mod b=0 then writeln('ket qua sau khi rut gon la ',a div b)
else writeln('ket qua sau khi rut gon la ',a,'/',b);
readln
end.

Answer 2

[Đặng Viết Thái]

program rutgon;

var a,b,m,R,n:int64;

begin

write('nhap so tu nhien m:');

readln(m)

; write('nhap so tu nhien n:');

readln(n);

a:=n;

b:=m;

while b<>0 do begin

R:=a mod b;

a:=b;

b:=R;

end;

write('phan so da duoc rut gon la:',m/a:0:0,'/',n/a:0:0);

readln;

end.

Nhanh-gọn-dễ hiểu