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!!!

0 bình luận về “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. 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.

   Bình luận