Sử dụng vòng lặp While…do để viết chương trình tính tổng các số tự nhiên từ 1 đến N, với N được nhập từ bàn phím. GIÚP MIK VS!!!

0 bình luận về “Sử dụng vòng lặp While…do để viết chương trình tính tổng các số tự nhiên từ 1 đến N, với N được nhập từ bàn phím. GIÚP MIK VS!!!”

1. program tinh_tong;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          t:=0;  i:=1;

          while i<=n do

                 begin

                        t:=t+i;

                        i:=i+1;

                 end;

          write(‘Tong cac so tu nhien tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận

2. Uses Crt;
   Var a,b,n:longint;
   Begin
   Clrscr;
   Write(‘Nhap n=’); Readln(n);
   a:=0; b:=0;
   While a<b do 
   Begin
   b:=b+a;
   a:=a+1;
   End;
   Write(‘Tong cac stn tu 1 den ‘,n,’ la:’,b);
   Readln
   End.

   Bình luận