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.