Viết chương trình tính tổng lập phương của N số tự nhiên đầu tiên ,N nhập từ bàn phím S=1^3+^2^3+…N^3

0 bình luận về “Viết chương trình tính tổng lập phương của N số tự nhiên đầu tiên ,N nhập từ bàn phím S=1^3+^2^3+…N^3”

1. program oken;
   uses crt;
   var n,i: longint;
       s: real;
   begin
       clrscr;
       write(‘Nhap 1 so n: ‘); readln(n);
       for i:=1 to n do
           s:=s+(i*i*i);
       writeln(‘Tong lap phuong: ‘,s:0:0);
       readln;
   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var i,n:integer;

   S:real;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

   Begin

   S:=S+sqr(i)*i;

   End;

   Write(‘tong la’,S);

   Readln

   End.

   Bình luận