Question

Bài Tập : In ra màn hình các số chẵn khoảng từ 1 đến 100

Answer 1

var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

Answer 2

giup mk vs

Answer 3

var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(i,' ');

readln;

end.

Answer 4

cách khác

var i : integer ;

begin

for i:= 1 to 50 do write(i*5);

readln

end.