Tính tổng s=1+4+9+16-+n^2 cho đến khi s>=300

0 bình luận về “Tính tổng s=1+4+9+16-+n^2 cho đến khi s>=300”

1. Program NhatNgu;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           i:=1;
           While s<300 do
           Begin
                   s:=s+sqr(i);
                   inc(i);
           End;
           Write(‘S = ‘,s,’ khi i = ‘,i);
           Readln
   End.

   Bình luận