viết chương trình tính tổng bậc 3 của n số nguyên đầu tiên

0 bình luận về “viết chương trình tính tổng bậc 3 của n số nguyên đầu tiên”

1. var i,n,m: integer;

   begin

   m:=0;

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

   for i:=1 to n do

   m:= m+i*i*i;

   write(‘Tong bac 3: ‘,m);

   readln;

   end.

   Bình luận

2. program bac_3;

   uses crt;

   var n,i: integer;

         T: longint;

   Begin

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

            T:=1;

            for i:=1 to 3 do T:=T*n;

            write(n,’^3 = ‘,T);

            readln

   End.

   Bình luận