Bài 9: Cấu trúc rẽ nhánh

MN

viết chương trình nhập vào số nguyên N . kiểm tra xem N có chia hết cho 3hay không ? thông báo kết quả ra màn hình

BT
28 tháng 11 2019 lúc 20:02

program chia_het;

uses crt;

var n: real;

begin

clrscr;

writeln('nhap so n:'); readln(n);

if (n mod 3)=0 then writeln(' chia het cho 3:')

else writeln(' k chia het:');

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
DH
4 tháng 12 2018 lúc 21:01

var N:integer;

begin

readln(N);

if N mod 3=0 then write('Chia het') else write('k chia het').

end.

Đại loại tke:)))

Bình luận (1)

Các câu hỏi tương tự
PN
Xem chi tiết
ND
Xem chi tiết
HH
Xem chi tiết
TP
Xem chi tiết
TQ
Xem chi tiết
NQ
Xem chi tiết
H24
Xem chi tiết
NA
Xem chi tiết
NL
Xem chi tiết