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.