Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Kinomoto Sakura
Xem chi tiết
Nitrox vntm
Xem chi tiết
Minh Lệ
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.

Khách vãng lai đã xóa
✿✿❑ĐạT̐®ŋɢย❐✿✿
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ự :))

Khách vãng lai đã xóa
Minh Lệ
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.

Khách vãng lai đã xóa
👁💧👄💧👁
Xem chi tiết
Yuki
Xem chi tiết
Đặng Phúc Anh
4 tháng 1 2018 lúc 22:02

sxdhjkhafn gwudahsjc nbsdluihjckmdln933sdvfdzfs

Hoàng Nguyễn Quỳnh Khanh
Xem chi tiết
Nguyễn Thị Lan Anh
Xem chi tiết
Hồ Minh Phi
Xem chi tiết
Hồ Minh Phi
Xem chi tiết
Thắng Nguyễn
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.

Quỳnh Mai Aquarius
Xem chi tiết