Question

Bài này làm sao thế mấy anh, chị ơi!

Giúp em với!

Viết chương trình tính tổng sau

S=1+2+3+...+n sao cho tổng S nhỏ nhất >500 ( với n là số nguyên được nhập từ bàn phím)

Lưu ý: viết chương trình sử dụng câu lệnh while .. do, for..do và biến mảng.

Answer 1

Lời giải :

program hotrotinhoc;

var s,n,i : integer;

begin

n:=0; s:=0;

while s<=500 do

begin

n:=n+1;

s:=s+n;

end;

write(s);

readln

end.