uses crt;
var a:integer;
begin
clrscr;
readln(a);
if (a mod 3=0) or (a mod 5=0) then write('co')
else writeln('khong');
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
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 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ó nằm trong khoảng từ 1 đến 100 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 từ phím 2soos 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 hết cho b hay kothô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 dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 5 trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N,sau đó in ra màn hình