Giúp mình với, mình đang cần gấp: Viết chương trình in ra tất cả số chẵn trong 100 số tự nhiên đầu tiên(sử dụng lệnh for do)

2 câu trả lời

Program Hotboy ;

Uses crt;

Var i : byte;

Begin

Clrsc;

For i:=1 to 100 do

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

Readln

End.

uses crt;
var i:byte;
begin
   clrscr;
   for i:=1 to 100 do if i mod 2 = 0 then write(i:4);
   readln
end.