(3 ĐIỂM)PROGRAM VD2;USES CRT;VAR X
Câu 1: (3 điểm)
Program VD2;
Uses crt;
Var x: integer;
Begin Clrscr;
Write('nhap mot so:');
Readln(x);
If x mod 3=0 then write(' chia het cho 3.')
Else write(' khong chia het cho 3.');
Câu 1: (3 điểm)
Program VD2;
Uses crt;
Var x: integer;
Begin Clrscr;
Write('nhap mot so:');
Readln(x);
If x mod 3=0 then write(' chia het cho 3.')
Else write(' khong chia het cho 3.');