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