Viết chương trình để tính tổng các số tự nhiên cho đến khi tổng đó vượt qua 100 thì dừng lại
Program tong
uses crt
War S, n:integer
Begin
S:=0,n:=1
While(s<=100) do begin s:=s+n,n:=n+1,end
Writeln(' tong cac so tu nhien dau tien>100la: ',S)
Readln
End
Loga
Sinh Học lớp 12
