Chỉ ra các test của bài toán: Kiểm tra tính chẵn lẻ của một số nguyên dương cho trước

Ý tưởng:

Nhập số nguyên n từ bàn phím

 Nếu n chia 2 dư 0 thì thông báo ra n chẵn, ngược lại thông báo ra n lẻ

Viết chương trình:

Uses crt;

Var n:integer;

 Begin

       Write('Nhap n : ');  Readln(n);

      If n MOD 2=0 Then

    Writeln('nla so chan')

     Else

    Writeln('n la so le');

  Readln;

End.

Ý tưởng:

- Nhập 1 số nguyên nhập từ bàn phím.

- Nếu số vừa nhập chia 2 dư 0 thì xuất ra màn hình số đó là số chẵn, nếu không giống như ĐK trên thì xuất ra màn hình số đó là số lẻ.

CT:

uses crt;
var n:longint;
{---Ham-kiem-tra---}
function chanle(n:longint):boolean;
begin
      if n mod 2=0 then begin chanle:=true; write(n,' la so chan'); end
      else begin chanle:=false; write(n,' la so le'); end;
end;
{---Chuong-trinh-chinh---}
BEGIN
      clrscr;
      write('Nhap n: '); readln(n);
      chanle(n);
      readln;
END.