Viết chương trình tính tổng A= 1.2+2.3+…+n (n+1) trong đó n là số nguyên nhập từ bàn phím Giúp mik với ạ

0 bình luận về “Viết chương trình tính tổng A= 1.2+2.3+…+n (n+1) trong đó n là số nguyên nhập từ bàn phím Giúp mik với ạ”

1. uses crt;

   var a:longint;

   i,n: integer;

   begin

   clrscr;

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

   for i:=1 to n do a:=a+(i*(i+1));

   writeln (‘tong A la: ‘,a);

   readln;

   end.

   xin hay nhất nhé !!!

   Bình luận

2. program tong;

   uses crt;

   var n,i,A: integer;

   Begin

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

            for i:=1 to n do A:=A+i*(i+1);

            write(‘A = ‘,A);

            readln

   End.

   Bình luận