Viết chương trình tính tổng S=1+2+3+... +N cho đến khi S>100. Cho biết giá trị của S và N
2 câu trả lời
uses crt;
var n,s:longint;
begin
clrscr;
while s<=100 do
begin
inc(n);
s:=s+n;
end;
writeln('s= ',s);
writeln('n= ',n);
readln
end.
program tim_so;
uses crt;
var s,n:byte;
begin
clrscr;
s:=0; n:=0;
while S<=100 do
begin
n:=n+1;
S:=S+n;
end;
write('S= ',s,' va n= ',n);
readln;
end.
