Question

In các số lẻ nhỏ hơn n bằng vòng lặp for

Help me please

Cần gấp

Answer 1

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so le nho hon hoac bang ',n,'la :');
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.

Answer 2

program in_so_le;
var i, n: integer;
begin
   writeln('Nhap so n: ');
   readln(n);
   writeln('Cac so le nho hon ', n, ' la: ');
   for i := 1 to n do
   begin
      if (i mod 2 = 1) then
         writeln(i);
   end;
   readln;
end.