Tính tổng s=1+4+9+16....+n^2 cho đến khi s>=300
1 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
