sử dụng vòng lặp while do để tính T với n nhập từ bàn phím: T=1+1/2+1/5+...+1/n cho n=15;n=30
2 câu trả lời
uses crt;
var i, n : longint; T : real;
begin
clrscr;
i := 1; T := 0;
write('Nhap n : '); readln(n);
while i <= n do
begin T := T + 1 / i;
i := i + 1; end;
write('T = ', T : 2 : 2);
readln
end.
uses crt;
var i,n:integer; t:real;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
while i<=n do
begin
i:=i+1;
if i mod 2 <> 0 then t:=t+1/i;
end;
write('T=',T:4:2);
readln
end.
- Đề 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
