Viết chương trình nhập vào hai số và tìm ước chung lớn nhất của hai số đó

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

1. PROGRAM UCLN;

   USES CRT;

   VAR A,B:INTEGER;

   BEGIN

   CLRSCR;

   WRITELN(‘NHAP A:’);READLN(A);

   WRITELN(‘NHAP B:’);READLN(B);

   R:=A MOD B;

   WHILE N<>0 DO

   BEGIN

   A:=B;

   B:=R;

   R:=A MOD B;

   END;

   WRITELN(‘UCLN:’,B);

   READLN

   END.

   Bình luận