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.

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 ...

4 tháng 1 2018

sxdhjkhafn gwudahsjc nbsdluihjckmdln933sdvfdzfs

17 tháng 8 2018

Mấy bài này đã có người làm rồi nhé bạn vào câu hỏi tương tự mà xem.