viết chương trình tính tổng sau:1+1/8+1/27+…+1/1000

0 bình luận về “viết chương trình tính tổng sau:1+1/8+1/27+…+1/1000”

1. Program NN;
   Uses crt;
   Var i: longint;
       s: extended;
   Begin
           Clrscr;
           s:=1;
           For i:=2 to 10 do
                   s:=s+1/(i*i*i);
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận