Viết chương trình nhập vào 1 số n sau đó kiểm tra n là số chẵn hay số lẽ.
2 câu trả lời
Program Gấu
uses crt;
var a: integer;
begin
clrscr;
write('nhap vao so a ='); readln(a);
if ( a mod 2 = 0 ) then write(' a la so chan ')
else
write('a la so le ');
readln;
end.
Program Hotboy;
Uses crt;
Var n:integer;
Begin
Write('nhap so n');
ReadLn(n);
If (n mod 2=0) then write(n,'la so chan') else write(n,'la so le');
Readln
End.