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?
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?
By Aaliyah
By Aaliyah
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’);
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.