Viết chương trình nhập 2 số a, b. Kiểm tra a có chia hết cho b không? Nếu chia hết thì in ra thông báo “có” ngược lại in ra “không”.

0 bình luận về “Viết chương trình nhập 2 số a, b. Kiểm tra a có chia hết cho b không? Nếu chia hết thì in ra thông báo “có” ngược lại in ra “không”.”

1. uses crt;
   var a,b:integer;
   begin
      clrscr;
      write(‘Nhap a, b: ‘); readln(a,b);
      if a mod b = 0 then writeln(‘Co’) else writeln(‘Khong’);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a,b:longint;
   begin
           clrscr;
           write(‘Nhap so a: ‘); readln(a);
           write(‘Nhap so b: ‘); readln(b);
           if (a mod b=0) then
                   writeln(‘co’)
           else
                   writeln(‘khong’);
           readln;
   end.

   Bình luận