Phần mềm học tập

Trần Đức Hoàng

Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?

 

Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 22:31

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

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

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

readln;

end.

Bình luận (0)
Minh Lệ
14 tháng 12 2020 lúc 18:49

Program HOC24;

var a: integer;

begin

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

if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
14 tháng 12 2020 lúc 22:26

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

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

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

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Phúc
Xem chi tiết
Linh Da
Xem chi tiết
Finn
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
HOÀNG ĐẠI PHÚC
Xem chi tiết
ytkc
Xem chi tiết
Anh Nguyen
Xem chi tiết
Phan Tấn Tài
Xem chi tiết