Nhập vào số nguyên A từ bàn phím kiểm tra đó là số chẵn hay lẻ
2 câu trả lời
Uses crt;
Var a:integer;
Begin
Write('Nhap a: '); Readln(a);
If a MOD 2=0 Then
Writeln('a la so chan')
Else
Writeln(‘a la so le');
Readln;
End.
Program BTT;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
If a mod 2 = 0 then Write(a,' la so chan')
Else Write(a,' la so le');
Readln
End.
