*Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100:

Program Tim_so_chan;

uses crt;

var i,n:integer;

Begin

clrscr;

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

For i:=1 to 100 do

If i mod 2=0 then Write('Cac so chan nho hon hoac bang 100 la: ',i);

Readln

End.

*Viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100

Program Tim_so_le;

uses crt;

var i,n:integer;

Begin

clrscr;

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

For i:=1 to 100 do

If i mod 2<>0 then Write('Cac so le nho hon hoac bang 100 la: ',i);

Readln

End.

1.

 Program b1;

Uses crt;

Var i:integer;

Begin

   Write('cac so chan <= 100:');

   For i:=1 to 100 do

     If i mod 2=0 then write(i:3);

   Readln;

End.

2.

Program b2;
Uses crt;
Var i:integer;
Begin
   Write('cac so < 100:');
   For i:=1 to 100 do write(i:3);
   Readln;
End.