Question

Viết chương trình nhập một số

A kiểm tra chẵn hay lẻ B có chia hết cho 3 không C có chia hết cho 5 không D có chia hết cho 9 không

Answer 1

Đề không cho kiểu dữ liệu gì nên mình vt longint
var A,B,C,D:longint;

begin

write('nhap A='); readln(A);

write('nhap B='); readln(B);

write('nhap C='); readln(C);

write('nhap D='); readln(D);

if A mod 2 = 0 then writeln(A,' la so chan') else writeln(A, ' la so le');

if B mod 3 = 0 then writeln(B,' chia het cho 3') else writeln(B,' ko chia het cho 3');

if C mod 5 = 0 then writeln(C,' chia het cho 5') else writeln(C,' ko chia het cho 5');

if D mod 9 = 0 then writeln(D,'chia het cho 9') else write(D,' ko chia het cho 9');
end.