Question

Viết chương trình in ra các số lẽ nhỏ hơn hoặc bằng n ( Sữ dụng while ... do )

Answer 1

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
i:=0;
while i<=n do
begin
i:=i+1;
if i mod 2=1 then write(i,' ');
end;
readln;
end.

Answer 2

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
i:=1;
while i<=n do
begin
if i mod 2=1 then write(i,' ');
inc(i);
end;
readln;
end.