Lập trình đơn giản

Dienn
Viết chương trình nhập vào một số dư nhập từ bàn phím và kiểm tra xem nó có chia hết cho 3 không
Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 20:17

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 3=0 then writeln(a,' chia het cho 3')

else writeln(a,' khong chia het cho 3');

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
misha
Xem chi tiết
Hoàng Hải Yến
Xem chi tiết
lmao lmao lmao
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết
Kamato Heiji
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Bét Đe
Xem chi tiết
Bbi thành real
Xem chi tiết