Lời giải :
+ Số chẵn:
program hotrotinhoc ;
var i : integer ;
begin
for i:= 1 to 100 do
if i mod 2 =0 then write(i);
readln
end.
+ Số lẻ :
program hotrotinhoc ;
var i : integer ;
begin
for i:= 1 to 100 do
if i mod 2 <> 0 then write(i);
readln
end.