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

HT

Kiểm tra số nhập vào có chia hết cho 3 hoặc 5 hay không?

NJ
14 tháng 12 2017 lúc 4:09

uses crt;

var a:real;

begin

writeln(' Nhap so can tim: ');

readln(a);

if (a mod 3=0) then

writeln('So chia het cho 3')

else if (a mod 5=0) then

writeln('So chia het cho 3')

else then writeln('So khong chia het cho 3 hoac 5');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
LL
Xem chi tiết
TH
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
NA
Xem chi tiết
BD
Xem chi tiết
DH
Xem chi tiết
NP
Xem chi tiết
QN
Xem chi tiết