K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

14 tháng 10 2019

Đề 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.

14 tháng 10 2019

thêm readln trc end nha