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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm