hãy sử dụng câu lệnh while do để viết chương trình tính tổng cho biểu thức C=1/1+1/2+.....+1/n
2 câu trả lời
uses crt;
Var I,n : integer;
S : real;
Begin clrscr;
s :=1, i:=1;
Write(‘Nhap n=’); readln(n);
While I <=n do
Begin
S:=s+1/i;
I:=i+1;
End;
Writeln(‘Tong do la:’, s);
Readln
End.
uses crt;
var i,n:integer;
C:real;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=1; C:=0;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
write('C = ',C:4:2);
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
