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.

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.

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ự :))

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.