program cach1;
var i:integer
begin
for i:=1 to 100 do write(i*2);
readln
end.
program cach2;
var i:integer;
begin
for i:=1 to 100 do if i mod 2=0 then write(i);
readln
end.
program ct1;
uses crt;
var i:integer;
begin
write (' Cac so chan trong day so la: ');
for i:=1 to 100 do if i mod 2=0 then write (i:3);
readln;
end.
- Thử xem nhé!