Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại. Giải nhanh giúp em
2 câu trả lời
Program tinh_tong;
Uses crt;
Var S,n: integer;
Begin
clrscr;
S:=0;
n:=1;
While(S<=100) do
Begin
S:=S+n;
n:=n+1;
End;
Writeln(‘ Tong la: ‘,S);
Readln
End.
program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;
while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
readln;
end.