Những câu hỏi liên quan
KS
Xem chi tiết
NV
Xem chi tiết
ML
28 tháng 1 2020 lúc 17:10

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.

Bình luận (0)
 Khách vãng lai đã xóa
H24
28 tháng 1 2020 lúc 11:05

a)

uses crt;

var N,S,i : integer;

begin clrscr;

S:=1;

for i:= 1 to N do S:=S*i;

writeln('N!=',S);

readln

end.

Các cái kia tương tự :))

Bình luận (0)
 Khách vãng lai đã xóa
ML
28 tháng 1 2020 lúc 17:20

d)

program hotrotinhoc;

var i,n: byte;

s: real;

function mu(x: byte): longint;

var j : byte;

k: longint;

begin

k:=1;

for j:=1 to x do

k:=k*x;

k:=mu;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

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

write(s:1:2);

readln

end.

e)

program hotrotinhoc;

var s: real;

i,n: byte;

begin

readln(n);

s:=0;

for i:=1 to n do

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

write(s:1:2);

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa
H24
Xem chi tiết
H24
16 tháng 3 2019 lúc 11:52

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

Bình luận (0)
H24
Xem chi tiết
DA
4 tháng 1 2018 lúc 22:02

sxdhjkhafn gwudahsjc nbsdluihjckmdln933sdvfdzfs

Bình luận (0)
HK
Xem chi tiết
NA
Xem chi tiết
HP
Xem chi tiết
HP
Xem chi tiết
TN
17 tháng 8 2018 lúc 22:32

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.

Bình luận (0)
QA
Xem chi tiết