Viết chương tình tính tổng T=1+1/2+1/3+…+1/n, với n nhập vào từ bàn phím . Giúp mình với
2 câu trả lời
var n,i:longint;
t:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
t:=t+ 1/i;
write('t= ',t:0:5);
readln;
end.
var n,i:longint;
t:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
t:=t+ 1/i;
write('t= ',t:0:5);
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
