Tính tổng của n sống tự nhiên đầu tiên bằng câu lệnh while..do Giúp mk với!!!
1 câu trả lời
uses crt;
var n,S,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln('Tong la: ',S);
readln
end.
Câu hỏi trong lớp
Xem thêm