viết phương trình nhập vào số tự nhiên từ bàn phím . kiểm tra và in ra màn hình số đó là chẵn hay lẻ ( mk đang thi dúp với)

2 câu trả lời

var a:integer;

begin

clrscr; writeln('nhap a'); readln(a); if a mod 2=0 then writeln('a la so chan') else writeln(' a la so le'); readln;

end.

program ct;

uses crt;

var n:integer;

begin

clrscr;

write('nhap so tu nhien:=');readln(n);

  if n mod 2=0 then writeln(n,'la so chan');

  if n mod 2=1 then writeln(n,' la so le');

readln

end.