viết chương trình tính tổng sau:1+1/8+1/27+...+1/1000
2 câu trả lời
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.
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+1/(i*i*i);
writeln(s:4:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm
