Trang

Viết chuơng trình tính tổng Sn=1+2+3+... +N. Cần cộng bao nhiêu số tự nhiên để ta nhận đuợc tổng Sn nhỏ nhất lớn hơn 1000.Tinh tổng Sn

Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:21

program TongSn;
var
  N, S: integer;
begin
  S := 0;
  N := 1;
  while S <= 1000 do
  begin
    S := S + N;
    N := N + 1;
  end;
  writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
  writeln('Tong S', N-1, ' la: ', S);
end.

 

Bình luận (0)

Các câu hỏi tương tự
Nguyễn minh Hoàng
Xem chi tiết
Phan Thu
Xem chi tiết
TNhi
Xem chi tiết
Bảo Bào
Xem chi tiết
Lương Gia Bảo
Xem chi tiết
trần hoàng
Xem chi tiết
xmisiucute
Xem chi tiết
Tali
Xem chi tiết
Nguyễn Thị Đức Quỳnh
Xem chi tiết