Viết chương trình nhập vào số tự nhiên n,in ra màn hình số đó chia hết cho cả 2,3,5,9?
0 bình luận về “Viết chương trình nhập vào số tự nhiên n,in ra màn hình số đó chia hết cho cả 2,3,5,9?”
uses crt;
var a: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) and (a mod 9 = 0) then write(a, ‘ chia het cho ca 2, 3, 5, 9’) else write(a, ‘ khong chia het cho ca 2, 3, 5, 9’);
uses crt;
var a: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) and (a mod 9 = 0) then write(a, ‘ chia het cho ca 2, 3, 5, 9’) else write(a, ‘ khong chia het cho ca 2, 3, 5, 9’);
readln
end.
uses crt;
Var x:longint;
Begin
Write(‘Nhap vao so can xet ‘);readln(x);
If (x mod 2 = 0) and (x mod 3 = 0) and (x mod 5 = 0) and (x mod 9 = 0) then
write(x,’ chia het cho ca 2, 3, 5 va 9′)
Else write(x,’ khong chia het cho ca 2, 3, 5 va 9′);
Readln;
End.
#Học tốt! ^^ Xin CTRLHN ạ.
@trinhthuy1987.
#TEAM: Hoidap247com.