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

Mai Thị Nhung

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

Bùi Anh Tuấn
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
Dương Hoàng
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ự
PHẠM PHUONG HOÀNG NGHI
Xem chi tiết
Nga Diệu
Xem chi tiết
Hàn Nhật Hạ
Xem chi tiết
The Anh Pham
Xem chi tiết
Trung Quang
Xem chi tiết
Nguyễn Quyên
Xem chi tiết
Machunsu
Xem chi tiết
ngô phương anh
Xem chi tiết
Nguyễn Diệu Linh
Xem chi tiết