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
2 câu trả lời
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.
- Cấu trúc câu điều kiện dạng thiếu : if <điều kiện> then <câu lệnh>;
- Nếu x mod 5 = 0 thì thông báo x chia hết cho 5
+ Điều kiện : x mod 5 = 0
+ Câu lệnh : thông báo x chia hết cho 5
=> If x mod 5 = 0 then write('x chia het cho 5');
