viết chương trình dùng phép trừ để tìm UCLN của m và n

0 bình luận về “viết chương trình dùng phép trừ để tìm UCLN của m và n”

1. uses crt;
   var m,n,UCLN: integer;
   begin
   clrscr;
   write (‘nhap n: ‘);  readln (n);
   write (‘nhap m: ‘);  readln (m);
   while m<>n do
   begin
   if m>n then m:=m-n
   else n:=n-m;
   end;
   UCLN:=n;    {UCLN:=m; cũng đc}
   write (‘UCLN la: ‘,UCLN);
   readln;
   end.

   Bình luận

2. program UCLN;

   var a,b:integer;

   begin

   clrscr;

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

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

   write(‘UCLN(‘,a,’,’,b,’)= ‘);

   while a<>b do

    if a>b then a:=a-b else b:=b-a;

   write(a);

   readln

   end.

   Bình luận