Viết chương trình in ra tổng 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 tổng các số lẻ nhỏ hơn hoặc bằng n(Với n được nhập)”

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

2. program bt;

   var

          n,S,i:integer;

   begin

         write(‘Moi ban nhap n: ‘); readln(n);

         S:=0;

         for i:=1 to n do if i mod 2<>0 then S:=S+i;

         write(‘Tong la: ‘,S);

         readln;

   end.

   #Chuc_ban_hoc_tot

   #Co_gi_kho_hieu_ban_hoi_lai_minh_giai_dap_nhe

   Bình luận