Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (với n được nhập vào từ bàn phím)
2 câu trả lời
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
i:=1;
While i<=n do
Begin
Write(i,' ');
inc(i,2);
End;
Readln
End.
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.