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
Minh Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

nana
Xem chi tiết
Trần Hằng
Xem chi tiết
Đỗ Tuệ Lâm
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

Lê Thiện Tuấn
Xem chi tiết
Tuấn Hưng
Xem chi tiết
Phiêu Phiêu
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.

Tuấn Hưng
20 tháng 2 2022 lúc 13:35

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

Tuấn Hưng
20 tháng 2 2022 lúc 19:45

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

nguyen thi khanh huyen
Xem chi tiết
Senna
20 tháng 12 2019 lúc 18:21

a)n.(n+1)/2

Khách vãng lai đã xóa
ko có tên
Xem chi tiết
nguyễn an phát
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.

Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

hồ đăng quân
Xem chi tiết
võ minh anh
15 tháng 6 2018 lúc 14:29

a=5000

Umi
22 tháng 8 2018 lúc 22:08

1 + 2 + 3 + ... + 100

= (100 + 1).100 : 2

= 101.50

= 5050

l҉o҉n҉g҉ d҉z҉
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\)

Khách vãng lai đã xóa