Question

Viết chương trình tính tổng C = 1+8+27+...+n³

Answer 1

PROGRAM TINH_TONG;

Uses Crt;

N, i, C:Integer;

BEGIN

clrscr();

Repeat

begin

Write('Nhap N='); Readln(N);

end;

Until N>0;

C:=1;

For i:=2 To N Do

C:= C + i*i*i;

Writeln('Tong can tim la C = ', C);

Readln;

END.

Answer 2

var i,n:integer;

s:longint;

begin

write('nhap so n:'); readln(n);

s:=0;

for i:=1 to n^3 do s:=s+i;

readln

end.

Answer 3

var i,n:integer;

s:longint;

begin

write('nhap so n:'); readln(n);

s:=0;

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

write('tong la',s);

readln

end.

Answer 4

var i,n:integer;

s:longint;

begin

readln(n);

s:=0;

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

writeln(s);

end.

Answer 5

cảm ơn 2 bạn nhiều nha nhưng mà chương trình của 2 bạn viết không đúng r mk đã viết đc chương trình r dù sao cũng cảm ơn 2 bạn rất nhiều

Answer 6

uses crt;
var n,i,tong:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
tong:=0;
for i:=1 to n do
tong:=tong+(i*i*i);
write('tong la:',tong);
readln;
end.