Viết chương trình in ra màng hình các số lẽ từ 1 cho đến n,cấm coppy mạng.

2 câu trả lời

$\text{tham khảo}$ 

Uses Crt;

Var i,N:integer;

Begin
      Clrscr;

      Write('Cac so le tu 1 den n la:');

      For i:=1 to n do
      If i mod 2 <>0 then writeln(i:5);

      Readln;

End.