T:=0
for i:=1 to 100 do T:=T+1/i;
writeln(T)
T:=0;i:=1
write i<=100 do begin T:=T+1/i; i:=i+1 end;
writeln(T)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
12 tháng 6 2019
Đoạn chương trình
For I:=1 to M do { I chạy trong phạm vi từ 1 đến M}
If (I mod 3 = 0) and (I mod 5 = 0) then { kiểm tra I chia hết cho 3 và cho 5 không}
T := T + I; {Cộng dồn vào tổng}
Đáp án: B
DT
15 tháng 2 2022
Đoạn chương trình thực hiện việc tính tổng các số âm từ 0 đến 5
???