Cho 2 số nguyên dương M,N (0<=M,N). Hãy viết chương trình đếm các ước của M và N? (VD 5 và 3 chỉ có 1 ước là 1)

0 bình luận về “Cho 2 số nguyên dương M,N (0<=M,N). Hãy viết chương trình đếm các ước của M và N? (VD 5 và 3 chỉ có 1 ước là 1)”

1. program Tin_hoc;

   uses crt;

   var i,m,n,k:integer;

   begin

   clrscr;

   write(‘M=’);readln(m);

   write(‘N=’);readln(n);

   k:=0;

   if m<n then for i:= 1 to m  do if (m mod i = 0) and (n mod i = 0) then inc(k);

   if m>n then for i:= 1 to n  do if (m mod i = 0) and (n mod i = 0) then inc(k);

   writeln(‘Co ‘,k,’ so la uoc cua ‘,m,’ va ‘,n);

   readln;

   end.

   Bình luận