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)

0 bình luận về “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)”

1. 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.

   Bình luận

2. 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.

   Bình luận