Quảng cáo
1 câu trả lời 751
program mod3and7;
uses crt;
var n, i : int64;
begin
clrscr;
repeat
write('Nhap n: ');
readln(n);
until (0<n) and (n<1000);
if ((n mod 3 = 0) and (n mod 7 = 0)) then
writeln(n,' chia hết cho ca 3 và 7!')
else
writeln(n,' khong chia hết cho ca 3 và 7!');
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86243
Gửi báo cáo thành công!
