Câu 1 : 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 từ bàn phím )

0 bình luận về “Câu 1 : 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 từ bàn phím )”

1. Câu 1 : 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 từ bàn phím )

   TL : 

   Program insole ;

   Uses crt ; 

   Var s , i , n : integer 

   Begin 

   Clrscr ; 

   Write ( ‘ nhap so n = ‘ ) ; readln ( n )

   S := 0 ;

   For i : = 1 to n do 

   If i mod 2 = 1 then s := s + i ;

   Writeln ( ‘ tong cac so le nho hon ‘ , n , ‘ la : ‘ , s ) ;

   Readln 

   End 

   Bình luận

2. Program In_So_Le;

   Program in_so_le
   Uses crt;

   var S,i,n: integer;

   Begin

   Clrscr;

   Write(‘Nhap so n =’); readln(n);

   S:= 0;

   For i:=1 to n do if i mod 2 =1 then S:= S+i;

   Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);

   readln

   end.

   Bình luận