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)
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
By Maya
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;
Writeln(‘So N de tong >500 la ‘,n);
Writeln(‘Gia tri cua tong S= ‘,s);
readln;
end.
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.