Viết chương trình tính tổng của N số tự nhiên đầu tiên n<150 mà>0 Giúp mik vs chiều nay mik thi r ????

0 bình luận về “Viết chương trình tính tổng của N số tự nhiên đầu tiên n<150 mà>0 Giúp mik vs chiều nay mik thi r ????”

1. program tong;

   uses crt;

   var n,i,T: integer;

   Begin

            clrscr;

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

            while (n>=150) and (n<=0) do

            begin

                     write(‘Nhap lai 0<n<150: ‘); readln(n)’

            end;

            for i:=1 to n do T:=T+i;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. Program tinhtong; 
   Var i,n:integer; 
          S: longint; 
   Begin 
   Write( ‘nhap n = ‘ );readln(n); 
   S:=0; i:=1;
   While n<150 do

   begin

   S:=S+i;

   i:=i+1;

   Writeln(‘ tong ‘,n, ‘so tu nhien dau tien’ = ,S); 
   Readln 
   End.

   Bình luận