H24

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

ND
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ự
NH
Xem chi tiết
PT
Xem chi tiết
H24
Xem chi tiết
BB
Xem chi tiết
LB
Xem chi tiết
TH
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
NQ
Xem chi tiết