Question

Viết chương trình tìm số nhỏ nhất lớn hơn 100, biết S= 1+2+3+...+n và khi đó cho biết n bằng bao nhiêu ?

Answer 1

program Tim_so_nho_nhat_lon_hon_100;

uses crt;

var S,n: integer;

begin

S:=0; n:=0;

while S<=100 do

begin n:=n+1; S:=S+n end;

writeln('So n nho nhat de tong > 100 la ',n);

writeln('Tong dau tien > 100 la ',S);

readln

end.