Thị Hạnh Nguyễn
Hỏi từ APP VIETJACK
Viết chương trình (pascal) tính tổng nghịch đảo của n số nguyên đầu tiên . Với n được nhập từ bàn phím
Quảng cáo
2 câu trả lời 4039
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
3 năm trước
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
Chúc bạn học tốt!
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44794
-
Hỏi từ APP VIETJACK26450
Thành viên hăng hái nhất trong tuần
-
Bánh Kemᰔᩚ
450 điểm
-
Astraea
235 điểm
-
Yen Nhi
205 điểm
-
.
125 điểm
-
Trịnh Kim Chi 90 điểm
-
Hanuel
60 điểm
-
જ⁀➴ღ ɲɦư亗♡
55 điểm
-
红玫瑰✿
50 điểm
-
quynh nhu lê
40 điểm
-
Trí Phạm 35 điểm
-
Nguyễn Thủy 30 điểm
-
an dc kh?
30 điểm
-
phạm văn hiếu phạm 30 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7559
-
3 năm trước7185
-
3 năm trước6181
-
3 năm trước5937
-
3 năm trước5985
Gửi báo cáo thành công!
