TÍNH TỔNG SAU : S= 1+2+3+4+5+...+N vs N là số nguyên nhập từ bàn phím ( viết theo câu lệnh while ... do ạ )
2 câu trả lời
uses crt;
var i, n, S : longint;
begin
clrscr;
write('nhap so n : '); readln(n);
S := 0; i := 1;
while i <= n do
begin
S := S + i;
i := i + 1;
end;
write('S = ', S);
readln
end.
uses crt;
var n, i, sum: longint;
begin
clrscr;
readln(n);
i:=1;
while i <= n do
begin
sum:=sum + i;
i:=i + 1;
end;
writeln(sum);
readln;
end.
