Question

Viết chương trình nhập vào 1 số nguyên kiểm tra xem số đó có chia hết cho 3 hay không và là số chẵn hay số lẻ

Answer 1

Program bai1;

uses crt;

var n : integer;

begin

clrscr;

repeat

write('nhap so nguyen ='); readln(n);

until n > 0;

if n mod 3 = 0 then

write('- so ',n,' chia het cho 3 ') else

write('- so ',n,' khong chia het cho 3 ');

writeln;

if n mod 2 = 0 then

write('- so ',n,' la so chan ') else

write('- so ',n,' la so le ');

readln;

end.

Answer 2

uses crt;

var n:int64;

begin

clrscr;

readln(n);

if n mod 2 = 0 then

writeln('So do la so chan')

else

writeln('So do la so le');

if n mod 3 = 0 then

writeln('So do chia het cho 3')

else writeln('So do khong chi het cho 3');

readln

end.