Những câu hỏi liên quan
ML
Xem chi tiết
NT
15 tháng 2 2022 lúc 16:26

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
TH
Xem chi tiết
DL
7 tháng 2 2022 lúc 21:47

Thuật toán: B1: Nhập N;

B2: A <--- 0; i <--- 1;

B3: A <--- A + ((2*i)/(2*i+1));

B4: i <--- i + 1;

B5: Nếu i > N thì thông báo A rồi kết thúc.

B6: Quay lại bước 3;

undefined

Bình luận (0)
LT
Xem chi tiết
TH
Xem chi tiết
PP
20 tháng 2 2022 lúc 13:42

Viết thân thôi hen

Var n,i,s:integer;

Read(n);

s:=0;

For i:=1 to n do

 If i mod 2 <>0 then s:=s+i else s:=s-i;

Write(s);

end.

Bình luận (0)
TH
20 tháng 2 2022 lúc 13:35

mong mn giúp vs ạ
đang gấp

Bình luận (0)
TH
20 tháng 2 2022 lúc 19:45

Bạn lm hết đc k@Phiêu Phiêu

Bình luận (0)
NH
Xem chi tiết
H24
20 tháng 12 2019 lúc 18:21

a)n.(n+1)/2

Bình luận (0)
 Khách vãng lai đã xóa
KT
Xem chi tiết
NP
9 tháng 6 2021 lúc 14:21

uses crt;

var i,n:integer;

s:longint;

begin

  clrscr;

  write('nhap n:');readln(n);

  s:=0;

  for i:=1 to n do

  if i mod 2=1 then s:=s+i

  else s:=s-i;

  writeln('s= ',s);

  readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
2 tháng 1 2022 lúc 21:48

b: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 5 do 

 s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
HQ
Xem chi tiết
VA
15 tháng 6 2018 lúc 14:29

a=5000

Bình luận (0)
H24
22 tháng 8 2018 lúc 22:08

1 + 2 + 3 + ... + 100

= (100 + 1).100 : 2

= 101.50

= 5050

Bình luận (0)
LD
5 tháng 5 2020 lúc 20:19

a) \(S=1+2+3+4+...+100\)

\(S=\frac{\left(100+1\right)\left[\left(100-1\right):1+1\right]}{2}\)

\(S=5050\)

b) \(S=1+2+3+...+n\)

\(S=\frac{\left(n+1\right)\left[\left(n-1\right):1+1\right]}{2}\)

c) \(A=1+3+5+...+99\)

\(A=\frac{\left(99+1\right)\left[\left(99-1\right):2+1\right]}{2}\)

\(A=2500\)

Bình luận (0)
 Khách vãng lai đã xóa