Khánh Thư Bùi Huỳnh
Hỏi từ APP VIETJACK
Tính tổng: 1+1/2+1/3+1/4+......+1/100 ( dùng câu lệnh for...to...do)
Tính tích:1×1/2×1/3×.......×1/100 (dùng câu lệnh như trên)
Tính tích:1×1/2×1/3×.......×1/100 (dùng câu lệnh như trên)
Quảng cáo
1 câu trả lời 275
2 năm trước
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44779
-
Hỏi từ APP VIETJACK26406
Gửi báo cáo thành công!