Viết chương trình tính tổng N số tự nhiên đầu tiên bằng cách dùng lệnh while..do( mong mn giúp ạ e sắp thi ạ)

0 bình luận về “Viết chương trình tính tổng N số tự nhiên đầu tiên bằng cách dùng lệnh while..do( mong mn giúp ạ e sắp thi ạ)”

1. Program Tinh_tong;

   var N,i: Interger;

         S: Longint;

   begin

         S:=0;

   while i<N do

         Begin  i:=i+1;

                    S:=S+i;

   End;

   Write(‘Tong cau ‘,N’, so tu nhien dau tien S = ‘,S);

   readln

   end.

                                   Có gi sai mong bạn chỉ cho mk!

   Trả lời

2. program tinh_tong;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘); readln(n);

          i:=1;  t:=0;

          while i<=n do

                 begin

                        t:=t+i;

                        i:=i+1;

                 end;

          write(t);

          readln;

   end.

   Trả lời