viêt chương trình pascal sử dụng vòng lặp while do để tính tổng S =1+2+3+-+n với n là 1 số nguyên được nhập từ bàn phím

0 bình luận về “viêt chương trình pascal sử dụng vòng lặp while do để tính tổng S =1+2+3+-+n với n là 1 số nguyên được nhập từ bàn phím”

1. uses crt;

   var i,n,s:longint;

   begin

   clrscr;

   readln(n);

   s:=0;i:=1;

   while i<=n do 

   begin

   s:=s+i;

   i:=i+1;

   end;

   write(s);

   readln

   end.

   Bình luận

2. C1:Var S,i,n:Longint;

   begin

       Readln(n)

        S:=0;

        For i:=1 to n do S:=S+i;

        Write(‘Tong cac so tu 1 den n : ‘,S);

        Readln;

   End.

   C2:Var i,S,n:Longint;

   begin

          Readln(n)

          i:=1;  S:=0;

          while i<=n do

                 begin 

                        S:=S+i;

                        i:=i+1;

                 end;

          write(‘Tong cac so tu 1 den n: ‘,S);

          Readln;

   End.

   Bình luận