Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng100 Ví dụ 2 4 6 8 10 12.......100
2 câu trả lời
program So_chan;
uses crt;
var i: byte;
begin
for i:=1 to 100 do if (i mod 2=0) then Write(i,' ');
end.
Program BTH;
Uses Crt;
var i:longint;
Begin
clrscr;
For i:=1 to 100 do
If i mod 2=0 then write(i,' ');
readln;
end.
