Question

viet chương trinh nhap 2 so nguyen m,n từ bàn phím (n,m nguyen dương va nhỏ hon 1000) hay tim 2 và đưa ra màn hinh 2 số p,q mà p là tữ số q là mẫu số khi da tối giản

Answer 1

USES crt;

VAR n,m,p,q:integer;

Function UCLN(x,y:integer):integer;

Var i,t:integer;

Begin

for i:=1 to x do

if (x mod i=0) and (y mod i =0) then t:=i;

UCLN:=t;

End;

BEGIN

clrscr;

write('Nhap n:'); readln(n);

write('Nhap m:'); readln(m);

p:=n div UCLN(n,m); q:=m div UCLN(n,m);

write('Cap (p,q) la:',p,' ',q);

readln;

END.