Quảng cáo
1 câu trả lời 410
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
nadttg , rudde de
· 4 năm trước
này này
nadttg , rudde de
· 4 năm trước
lại sao chép của tôi
nadttg , rudde de
· 4 năm trước
bạn ừng có trả lời đc ko
nadttg , rudde de
· 4 năm trước
đừng có trả lời đc ko
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45490
-
Hỏi từ APP VIETJACK28376
Gửi báo cáo thành công!
