var a:integer;
begin
write[‘nhap a:’];
readln[a];
if a mod 5=0 then write[a，’ chia het cho 5′] else write[a，’ khong chia het cho 5′];
readln;
end.
Những câu hỏi liên quan
Viết chương trình nhập một số nguyên A từ bàn phím, sử dụng câu lệnh điều kiện để kiểm tra A xem có chia hết cho 3 hay không, sau đó đưa ra màn hình thông báo “A chia hết cho 3” hoặc “A không chia hết cho 3”.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có đồng thời chia hết cho 3 và 5 hay không, thông báo ra màn hình.
Những câu hỏi liên quan
Viết chương trình nhập một số nguyên A từ bàn phím, sử dụng câu lệnh điều kiện để kiểm tra A xem có chia hết cho 3 hay không, sau đó đưa ra màn hình thông báo “A chia hết cho 3” hoặc “A không chia hết cho 3”.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có đồng thời chia hết cho 3 và 5 hay không, thông báo ra màn hình.
Viết chương trình nhập từ bàn phím hai số nguyên a và b khác nhau [a>b], sử dụng câu lệnh điều kiện để kiểm tra xem a chia het cho b hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay không, thông báo ra màn hình.