Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2

0 bình luận về “Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2”

1. uses crt;
   var a,b:word;
   function ucln(x,y:longint):longint;
   begin
       while x<>y do
         if x>y then x:=x-y
           else y:=y-x;
       exit(x);
   end;
   begin
       clrscr;
       repeat
            readln(a,b);
       until (1<=a) and (1<=b) and (a<=10000) and (b<=10000);
       writeln(ucln(a+b,a*b));
       writeln(a*b mod (a+b));
   readln;
   end.

   Bình luận