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.
Đúng 0
Bình luận (1)
Các câu hỏi tương tự
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
Sử dụng câu lệnh while...đó viết phương trình tính tổng: B=2+4+6+...+2020 C=1/3+1/6+1/9+...+1/3n D= Tính tổng các số lẻ trong phạm vi 2021
Bài 1: Viết chương trình cho bài toán sau (sử dụng câu lệnh For...do và While...do)
a) 1+2+3+4+5+6+7+8+9
b) 2+4+6+8+10+12+14
c) 3+5+7+9+11+13+15
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:
S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)