Quảng cáo
1 câu trả lời 207
var a,i:longint;s,s1:real;
begin
read(a);
s:=0;
s1:=0;
for i := 0 to 1000000 do // i ở đây là 1..n mình nghĩ 1000000 là có thể đủ r tại số a càng lớn thì càng gần 0.001 so thoải mái - nếu muốn bạn có thể tăng thêm để accepted
begin
s:=(1/(a+i));//tính sum 1/(a+n);
s1:=s1+s;//lấy tổng các s kia
if s < 0.0001 then//nếu s < 0.0001 như đề
begin
writeln(s1:0:5);//write sum các s trước
exit;//thủ tục thoát chương trình
end;
end;
end.
begin
read(a);
s:=0;
s1:=0;
for i := 0 to 1000000 do // i ở đây là 1..n mình nghĩ 1000000 là có thể đủ r tại số a càng lớn thì càng gần 0.001 so thoải mái - nếu muốn bạn có thể tăng thêm để accepted
begin
s:=(1/(a+i));//tính sum 1/(a+n);
s1:=s1+s;//lấy tổng các s kia
if s < 0.0001 then//nếu s < 0.0001 như đề
begin
writeln(s1:0:5);//write sum các s trước
exit;//thủ tục thoát chương trình
end;
end;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55331 -
Đã trả lời bởi chuyên gia
31217
-
Đã trả lời bởi chuyên gia
29766
Thành viên hăng hái nhất trong tuần
-
Minh_VietJack😡🐉👊
910 điểm
-
jamJames 🥵👍
765 điểm
-
please don't kill me!
545 điểm
-
૮₍˶ •. • ⑅₎აᑕᑌ丅ᗴ♡
540 điểm
-
`color{red}text{HuyTùng🧧2026년 새해 복 많이 받으세요` 505 điểm
-
🧧Linh_Bính _Ngọ _2026🧧🧧🎀
455 điểm
-
🐟祖尼⚡
360 điểm
-
muzik quang hùng
325 điểm
-
보고 싶어요
320 điểm
-
️️ⓤ. 𝙞𝙡𝙖𝙮𝙧𝙞𝙚𝙜𝙧𝙤𝙬 2026
280 điểm
-
Phuong Hoàng 250 điểm
-
Kiều Anh 225 điểm
-
Ben 10K
195 điểm
-
너 없는 파리
165 điểm
Rút gọn
Bài viết mới nhất Lớp 10
Gửi báo cáo thành công!
