Viết chương trình nhập vao có giá trị 2 số A,B ,tìm ước chung lớn nhất của AvàB

0 bình luận về “Viết chương trình nhập vao có giá trị 2 số A,B ,tìm ước chung lớn nhất của AvàB”

1. uese crt;

   var  a,b: integer;

   begin

   clrscr;

   writeln(‘Nhap so thu nhat:’); readln(a);

   writeln(‘Nhap so thu hai:’); readln(b);

   while a<>b do

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

   writeln(‘ucln cua a va b la:’,a);

   readln;

   end.

   Bình luận

2. program ct;

   uses crt;

   var A,B,UCLN:integer;

   begin clrscr;

      write(‘Nhap 2 so A va B: ‘); readln(A,B);

      while A<>B do

        if A>B then A:=A-B

                    else B:=B-A;

        UCLN:=A;

      writeln(‘Uoc chung lon nhat la: ‘,UCLN);

   readln;

   end.

   Học tốt!

   Bình luận