Viết chương trình nhập vào một số nguyên dương n kiểm tra và thông báo ra màn hình số n vừa là số chẵn vừa chia hết cho 3 khônguyên?
Viết chương trình nhập vào một số nguyên dương n kiểm tra và thông báo ra màn hình số n vừa là số chẵn vừa chia hết cho 3 khônguyên?
uses crt;
var n:longint;
begin
write(‘nhap n: ‘);readln(n);
if (n mod 2=0) then writeln(‘n la so chan’)
else writeln(‘n la so le’);
if (n mod 3=0) then writeln(‘chia het cho 3’)
else writeln(‘khong chia het cho 3’);
readln
end.
Theo ý mình là vậy bạn test thử, nếu có sai thông cảm >_< !
program Min;
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if (n mod 3 = 0 ) and (n mod 2 = 0)
then write(n,’ vua la so chan, vua chia het cho 3′)
else write(n,’ khong la so chan, khong chia het cho 3′);
readln
end.