vt gium minh pt pascal tinh tong s=1+1/3+1/5+....+1/n
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.
S = 1 + 2 + 3 + 4 + ... + 99 + 100
Áp dụng công thức tính dãy số theo quy luật
=> S = (1 + 100) x 100 : 2
=> S = 101 x 50
=> S = 5050
S = 1 + 2 + 3 + 4 + ... + 99 + 100
Áp dụng công thức tính dãy số theo quy luật
=> S = (1 + 100) x 100 : 2
=> S = 101 x 50
=> S = 5050
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
1. Gọi 4 số tự nhiên liên tiếp là a ; a + 1 ; a + 2 ; a + 3.
Có tổng là : a + a + 1 + a + 2 + a + 3 = 4a + 6.
4a chia hết cho 4 ; 6 không chia hết cho 4. Vậy tổng trên không chia hết cho 4.
2.
a) x3 + 22 . 5 = 28 . 1100
x3 + 22 . 5 = 28
x3 + 20 = 28
x3 = 8
x3 = 23
x = 2
b) 3 x + 2 - 3x +1 = 6100 : 699
3 x + 2 - 3x +1 = 6
3 x + 1 ( 3 - 1 ) = 6
3x+1 . 2 = 6
3x+1 = 3
x + 1 = 1
x = 0
1.gọi 4 số liên tiếp lần lượt là: a;a+1;a+2;a+3.
tổng của 4 số liên tiếp là: a+a+1+a+2+a+3=4a+6
ta có: 4a chia hết cho 4
6 chia cho 4 dư 2
=>4a+6 chia cho 4 dư 2
vậy tổng 4 số liên tiếp là 1 số ko chia hết cho 4
2.
a/ x3+22.5=28.1100
=>x3+4.5=28.1
=>x3+20=28
=>x3=8=23
=>x=2
b/3x+2-3x+1=6100:699
=>3x.32-3x.3=6
=>3x(9-3)=6
=>3x.6=6
=>3x=1=30
=>x=0
Bài 1 :
\(S=1.3+3.5+5.7+...+99.101=3+15+35+...9999\)
Ta thấy :
\(3=2^2-1\)
\(15=4^2-1\)
\(35=6^2-1\)
.....
\(9999=100^2-1\)
\(\Rightarrow S=2^2+4^2+...+100^2-\left(1\right).\left(\left(100-2\right):2+1\right)\)
\(\Rightarrow S=\dfrac{100.\left(100+1\right)\left(2.100+1\right)}{6}-51\)
\(\Rightarrow S=\dfrac{100.101.201}{6}-51=338299\)
a) Trong phép chia cho 3 số dư có thể là 0, 1, 2
________________ 4 _________________, 3
________________ 5 ___________________4
b) Số chia hết vcho 3 là 3k, chia 3 dư 1 là 3k+1, chia 3 dư 2 là 3k+2
Var i, n : integer;
S : real;
Begin
Write (‘n=’); read(n);
S:=1;
For i:= 1 to n do S:= S + 1/(i+2);
Write(S);
Readln;
End.
program bai1;
var s,i,n:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then s:=s+1/i;
write('s= ',s);
readln
end.