Tìm k số nguyên lẻ liên tiếp sao cho tổng của chúng không vượt quá 300

0 bình luận về “Tìm k số nguyên lẻ liên tiếp sao cho tổng của chúng không vượt quá 300”

1. câu này cũng dễ 

   Var i , T ,D: integer ;

   Begin 

        i := 1 ; T := 0 ; D := 0 ;

        While T <= 300 do

             Begin 

                  T := T + i ;

                   i := i * 2 ; 

                   D := D+1 ;

              End;

          Writeln(‘K = ‘,D);

           Readln

   End.

   Bình luận