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. uses crt;

   var s,n: longint;

   begin

   clrscr;

   s:=0;

   n:=1;

   repeat

   if (n mod 2 <> 0) s=s+n;

   inc(n);

   until s=300;

   readln;

   end.

   Bình luận