uses crt;
var t:real;
i:byte;
begin
clrscr;
t:=3;
for i:=2 to 100 do
t:=t+1/i;
writeln('T=',t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
15 tháng 3 2021 lúc 10:21
Viết chương trình tính tổng A = \(\dfrac{1}{1}\) + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) + ... + \(\dfrac{1}{n}\)
__________________________
Rất mong mọi người giúp đỡ mình ạ T-T
Viết chương trình tính tổng T=1+1/2+1/3+...+1/100
Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
Câu 3: Viết chương trình tính tổng S 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)Các bạn giúp mình được không ạ.
Đọc tiếp
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
Viết chương trình tìm số N . Sao cho tổng từ 1 đến N bé hơn hoặc bằng 100 . T = 1+ 2+3 ........+ ? = 100
viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
15 tháng 3 2021 lúc 10:23
Viết chương trình tính tổng B = \(\dfrac{1}{1.3}\) + \(\dfrac{1}{2.4}\) +\(\dfrac{1}{3.5}\) + ... + \(\dfrac{1}{n\left(n+2\right)}\)
________________________________________
Mọi người giúp mình với ạ, mình sắp thi rồi :((
15 tháng 3 2021 lúc 10:25
Câu hỏi: Viết chương trình tính n!
_______________________________________
Mọi người giúp mình với, mình đang cần gấp ạ!
1. Viết chương trình tính tổng
T = 1 + 1/2 + 1/3 +... + 1/100
2. Viết chương trình tính tích
P = 1 × 1/2 × 1/3... 1/3