Tính A=1+2+3+-.+N (nhập từ bàn phím) Sử dụng lệnh while-.do Giúp e vs mn ơi Thanks nhiều ạ!!!

0 bình luận về “Tính A=1+2+3+-.+N (nhập từ bàn phím) Sử dụng lệnh while-.do Giúp e vs mn ơi Thanks nhiều ạ!!!”

1. program ct;

   uses crt;

   var i,N:integer;

         A:longint;

   begin clrscr;

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

        A:=0; i:=0;

      while i<=N do

        begin

           A:=A+i;

           i:=i+1;

         end;

      writeln(‘Tong A la: ‘,A);

   readln;

   end;

   Học tốt!

   Bình luận

2. uses crt;
   var i,n:integer;
       S:longint;
   begin 
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      S:=0; i:=0;
      while i<=n do
      begin
         S:=S+i;
         i:=i+1;
      end;
      writeln(‘Tong la: ‘,S);
      readln
   end.

   Bình luận