For:
uses crt;
var i,n:longint;
begin
clrscr;
repeat write('n=');readln(n); until n>0;
for i:=1 to n do if i mod 2=1 then writeln(i);
readln
end.
While do:
uses crt;
var i,n:longint;
begin
clrscr;
repeat write('n=');readln(n); until n>0; i:=0;
while i<=n do
begin
if i mod 2=1 then writeln(i);
i:=i+1;
end;
readln
end.
///////////
Giải thích:
Điều kiện: nhập cho đê khi thỏa mãn điều kiện không phải(n<=0) thì là lớn hơn 0
Chưa đúng điều kiện thì chuong trình cho chúng ta nhập cho đến khi đúng
Số lẻ là mod mod 2=1