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ố 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.

chúc bạn học tốt

xin ctlhn