S=1+2+3+..+n và S

22/07/2021 Bởi Piper

0 bình luận về “S=1+2+3+..+n và S<M, với M cho trước. Hỏi n=?”

1. program S_M;

   uses crt;

   var s,m,n:integer;

   begin

           clrscr;

           write(‘Nhap m: ‘);   readln(m);

           S:=0;  n:=0;

           while S<m do

                   begin

                           n:=n+1;

                           S:=S+n;

                   end;

           write(‘So n la: ‘,n-1);

           readln;

   end.

   *in ra n-1 vì khi tính tổng thì s sẽ lớn hơn hoặc bằng m, và để thỏa mãn s<m thì in ra trước nó là n-1

   Bình luận

2. uses crt;

   var s:real;

       n,m:qword;

   BEGIN

           clrscr;

           write(‘Nhap M:’); readln(m);

           n:=0;  s:=0;

           while s<m do

           begin

                   inc(n);

                   s:=s+n;

           end;

           write(n-1);

           readln

   END.

   Chúc bạn học tốt!

   Bình luận