Hãy hoàn thiện chương trình tính tổng n số tự nhiên đầu tiên cho đến khi S<=500. Cho biết N
S:=0
N:=0
While S<= do
N:= N+1
S:= S+N
Writeln(‘So N de tong >1000 la’,N);
Writeln(‘Gia tri cua tong S =',S);
(1 Điểm)
Sau khi chỉnh sửa Program BTH; uses crt; var n,s:longint; Begin clrscr; s:=0; n:=0; While s<=500 do Begin n:=n+1; s:=s+n; end; Writeln('So N de tong >500 la ',n); Writeln('Gia tri cua tong S= ',s); readln; end.