Việt biểu thức quan hệ kiểm tra số nguyên a có đồng thòi chia jeets cho 3 và 7 hay không
1 câu trả lời
Program baitap;
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('a=');
Readln(a);
If (a mod 3=0 and a mod 7=0) then writeln(a,' chia het cho 3 va 7')
else writeln(a,' khong chia het cho 3 va 7');
Readln
End.
Câu hỏi trong lớp
Xem thêm
