sử dụng câu lệnh ì -then kiểm tra cấu trúc rẽ nhánh a Nếu x mod 5 =0 thì thông báo xchia hết cho 5

0 bình luận về “sử dụng câu lệnh ì -then kiểm tra cấu trúc rẽ nhánh a Nếu x mod 5 =0 thì thông báo xchia hết cho 5”

1. program bai_tap;

   uses crt;

   var x:integer;

   begin

   clrscr;

   readln(x);

   if x mod 5=0 then write(‘chia het’) else write(‘khong chia het’);

   readln;

   end.

   Bình luận