Uses crt;
Var a,n:integer;
Begin
Clrscr;
Writeln('Nhap so N='); Readln(n);
Writeln('Cac so chan trong khoang tu 1 toi ',n,' la:');
For a:=1 to n do if i mod 2 = 0 then write(a:4);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks
p/s: Chỗ nào khó hiểu, comment hỏi đáp!