Lập chương trình tính tổng S=1+4+9+16+25+...+n^2 cho đến khi S>=300, cho biết khi đó n= bao nhiêu? Viết theo dạng For...do cho e với ạ.
1 câu trả lời
program tinh;
uses crt;
var s, n : integer;
begin
clrscr;
n := 1;
s := 0;
while S < 300 do
begin
s := s + sqr(n);
n := n + 1 ;
end;
writeln('tong s la :', s);
writeln('khi do n la :', n - 1);
readln
end.
Câu hỏi trong lớp
Xem thêm
