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

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”

1. program ct;

   uses crt;

   var i,s:integer;

        s:real;

   begin

   clrscr;           

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

   s:=0;

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

   writeln(‘tong lap phuong la:’,s);

   readln

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var S:longint;

   i,N:integer ;

   Begin

   Write(‘nhap n’); Readln(n);

   For i:=1 to n do

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

   Write(‘tong can tim la’,S);

   Readln

   End.

   Bình luận