Viết chương trình in ra màn hình các số lẻ từ 1 đến n được nhập từ bàn phím

2 câu trả lời

program oken;

uses crt;

var n,i:longint;

begin

clrscr;

write('nhap n: '): readln(n);

for i:=1 to n do

      if i mod 2=1 then

           write(i,' ');

readln;

end.

Program So_le;

uses crt;

 Var i: integer;

Begin

clrscr;

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

Writeln; 

 For i:=1 to n do

   if i mod 2<> 0 then write  (i:5);

readln;

End.