viết chương trình in ra màn hình các số chẵn từ 1 đến 10

2 câu trả lời

Uses Crt;
var   i: integer;
Begin
clrscr;
For i:=1 to 10 do
If i mod 2 = 0 then write(i);
Readln
End.

var i:integer;

begin

for i:=1 to 10 do

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

readln;

end.

#kensou2k8_Adventure Time