Bài 17/2000 - Số nguyên tố tương đương
(Dành cho học sinh THCS)
Có thể viết chương trình như sau:
Program Nttd;
Var M,N,d,i: integer;
{---}
Function USCLN(m,n: integer): integer;
Var r: integer;
Begin
While n<>0 do
begin
r:=m mod n; m:=n; n:=r;
end;
USCLN:=m;
End;
BEGIN
Write('Nhap M,N: '); Readln(M,N);
d:=USCLN(M,N); i:=2;
While d<>1 do
If d mod i =0 then
begin
While d mod i=0 do d:=d div i;
While M mod i=0 do M:=M div i;
While N mod i=0 do N:=N div i;
end;
Inc(i);
If M*N=1 then Write('M va N nguyen to tuong duong.')
Else Write('M va N khong nguyen to tuong duong.');
Readln;
END.
Bạn đang xem bài 17/ - 100 DE TIN HSG CO DAP AN
