nhập số N. xét tính chẵn lẽ của n

2 câu trả lời

program ct;

uses crt;

var n:real;

begin

   clrscr;

   writeln('Nhap n'); readln(n);

   if n mod 2 = 1 then

      writeln('N la so le')

   else

      writeln('N la so chan');

   readln;

end.

________________

#Duahauvn

var n:longint;
begin
read(n);
if n mod 2 = 0 then write('n la so chan')
else write('n la so le');
readln; readln;
end.