Viết chương trình kiểm tra tính chẵn lẻ của một số nguyên dương N. Giải vs
2 câu trả lời
Program baitap;
Uses crt;
Var N:integer;
Begin
Clrscr;
Write('N='); Readln(N);
If (N mod 2=0) then writeln(N,' la so chan')
Else writeln(N,' la so le');
Readln
End.
Var n:Longint;
Begin
Readln(n);
If n mod 2 = 0 then Write('n la so chan')
Else Write('n la so le');
Readln;
End.
