Với M là 80. Viết chương trình thực hiện theo yêu cầu. Tính và in ra tổng sau: T= $\frac{1}{1.2}$ + $\frac{1}{2.5}$ + $\frac{1}{3.8}$ + $\frac{1}{4.11}$ +... (viết bằng pascal ạ)
2 câu trả lời
uses crt;
var i, M : integer; T : real;
begin
clrscr;
M := 80;
for i := 1 to M do
T := T + 1 / (i * (2 + (3 * (i - 1))));
write('Tong T = ', T : 2 : 3);
readln
end.
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
t:=0;
writeln('nhap n: ');readln(n);
for i:=1 to n do t:=t+1/(i*(i*3-1));
writeln('t bang: ',t);
readln;
end.
Câu hỏi trong lớp
Xem thêm
