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)
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)
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do if i mod 2 = 0 then write(i:4);
readln
end.
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.