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