Viết chương trình tính tổng S= 1+2+3+...+n sao cho S>1000. Hỏi khi đó cụ thể S bằng bao nhiêu.
2 câu trả lời
var s,n: longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
s:=s+i;
write('Tong la: ',s);
end.
var n:int64;
begin
write('Nhap n: '); readln(n);
write('S= ',(1+n)*n div 2);
end.
Câu hỏi trong lớp
Xem thêm