K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Nguyễn Minh Lệ em xin lỗi ạ, em sửa là : longint;

28 tháng 1 2020

b)

program hotrotinhoc;

var s: real;

i,n: byte;

function t(x: byte): longint;

var j: byte;

t1: longint;

begin

t1:=1;

for j:=1 to x do

t1:=t1*j;

t1:=t;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/t(i);

write(s:1:2);

readln

end.

c) Đề em ghi sai rồi thế này với đúng :

\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)

program hotrotinhoc;

var t: real;

n,i: byte;

begin

readln(n);

t:=0;

for i:=1 to n do

t:=t+i/(i*i);

write(t:1:2);

readln

end.

4 tháng 1 2018

sxdhjkhafn gwudahsjc nbsdluihjckmdln933sdvfdzfs

16 tháng 3 2019

Nguyen svtkvtm Khôi Bùi Nguyễn Việt Lâm Lê Anh Duy Nguyễn Thành Trương DƯƠNG PHAN KHÁNH DƯƠNG An Võ (leo) Ribi Nkok Ngok Bonking ...

25 tháng 3 2018

\(a)\) Đặt \(A=\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{2010^2}\) ta có : 

\(A< \frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+...+\frac{1}{2009.2010}\)

\(A< \frac{1}{1}-\frac{1}{2}+\frac{1}{2}-\frac{1}{3}+\frac{1}{3}-\frac{1}{4}+...+\frac{1}{2009}-\frac{1}{2010}\)

\(A< 1-\frac{1}{2010}=\frac{2009}{2010}< 1\)

\(\Rightarrow\)\(A< 1\) ( đpcm ) 

Vậy \(A< 1\)

Chúc bạn học tốt ~