Viết chương trình tìm ước chừng lớn nhất của hai số

0 bình luận về “Viết chương trình tìm ước chừng lớn nhất của hai số”

1. var a, b: word;

   Begin

       Write(‘nhap a va b: ‘); readln(a, b);

       While a<>b do

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

       Write(‘UCLN: ‘, a);

       Readln

   End.

   Bình luận

2. Program bai_tap;

   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;

      writeln( ‘ UCLN =   ‘, a);

      readln

   End.

   Bình luận