nhập hai số nguyên dương a và b từ bàn phím a, kiểm tra xem a > b hay b > a hay b = a TH1: Nếu a > b kiểm tra xem a có chia hết cho b hay không TH2:

0 bình luận về “nhập hai số nguyên dương a và b từ bàn phím a, kiểm tra xem a > b hay b > a hay b = a TH1: Nếu a > b kiểm tra xem a có chia hết cho b hay không TH2:”

1. Câu a:

   uses crt;
   var a,b :integer;
   begin
           clrscr;
           write(‘nhap so a: ‘);readln(a);
           write(‘nhap so b: ‘);readln(b);
           if a > b then
           if a mod b = 0 then write(‘a chia het cho b’)
           else write(‘a khong chia het cho b’);
           readln;
   end.

   Câu b:

   uses crt;
   var a,b :integer;
   begin
           clrscr;
           write(‘nhap so a: ‘);readln(a);
           write(‘nhap so b: ‘);readln(b);
           if a mod 2 = 0 then write(‘a chia het cho 2: ‘);
           if a mod 3 = 0 then write(‘a chia het cho 3: ‘);
           if a mod 5 = 0 then write(‘a chia het cho 5: ‘);
           if b mod 2 = 0 then write(‘b chia het cho 2: ‘);
           if b mod 3 = 0 then write(‘b chia het cho 3: ‘);
           if b mod 5 = 0 then write(‘b chia het cho 5: ‘);
   end.

   Bình luận