Lập chương trình tính góc chung lớn nhất của 2 số nguyên dương M .N

0 bình luận về “Lập chương trình tính góc chung lớn nhất của 2 số nguyên dương M .N”

1. program UCLNAB;

   uses crt;

   var a,b:integer;

   begin

   clrscr;

   write(‘Nhap a: ‘);   readln(a);

   write(‘Nhap b: ‘);   readln(b);

   while a<>b do

     if a>b then a:=a-b

       else b:=b-a;

   write(‘UCLN cua 2 so tren la: ‘,a);

   readln

   end.

   Bình luận

2. VAR
           m,ninteger;
   Function ucln(s1,s2:integer):integer;
   Begin
           if s1 mod s2=0 then  ucln:=s2
           else ucln:=ucln(s2,s1 mod s2);
   End;
   BEGIN
           write(‘m=’);readln(m);
           write(‘n=’);readln(n);
           write(abs(ucln(m,n)));
           readln;
   END.

   Bình luận