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

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).”

1. program Min(Program FNG)
   uses crt;
   var i,n:integer;
   begin
     clrscr;
      write(‘Nhập 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

2. Hướng dẫn:
   – Cho biến i chạy từ 1 đến n.
   – Nếu i chẵn ( i chia 2 dư 0) thì in ra số n.
   CÁCH LÀM
   Program In_So_Le;
   Uses crt;
   var i,n: integer;
   Begin
    Clrscr;
    Write(‘Nhap so n =’); readln(n);
    For i:=1 to n do if i mod 2 =1 then Write(i:3,’,’);
    readln
   end.

   Bình luận