-Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập từ bàn phím) -Viết chương trình nhập vào 1 số nguyên dương n từ bàn phím. Hãy cho biết số đó là số chẵn hay số lẻ và thông báo kết quả ra màn hình mình cần gấp

B1;

uses crt;

var i,n,S:integer;

begin

write('nhap n:');readln(n);

for i:=1 to n do if (i mod 2)=1 then writeln(i);

readln;

end.

B2:

uses crt;

var n:integer;

begin

write('nhap n:');readln(n);

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

readln;

end.

B1:

program bai1;

Uses crt;

Var

          N,i:integer;

Begin

          Clrscr;

          write('Nhap n: '); readln(n);

          for i:=1 to n do if i mod 2=0 then write (i,' ');

         readln;

end.

Bai2;

Program bai2;

uses crt;

var

        n:integer;

begin

        clrscr;

        write('Nhap n: '); readln(n);

        if n mod 2=0 then write(n,' la so chan') else write(n,' la so le');

        readln;

end.