Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + ... + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình
2 câu trả lời
var i,n : integer;
s : real;
begin
readln(n); s:=0;
for i:=2 to n do s:=s+(1/i);
writeln(s:0:2);
readln;
end.
Program Hotboy;
Uses crt;
Var s:real;
I,n:integer;
Begin
Clrscr;
Write('nhao so n'); readln(n) ;
For i:=2 to n do
S:=S+1/i ;
Writeln('tong S la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
