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.