Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước ,n là một số nguyên dương
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.
Những câu hỏi liên quan
24 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
double s,a;
int i,n;
int main()
{
cin>>a;
s=0;
n=0;
while (s<=a)
{
n=n+1;
s=s+1/(n*1.0);
}
cout<<n;
return 0;
}
21 tháng 3 2021
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
ML
1 tháng 10 2021
a. Liệt kê
Bước 1: Nhâp N
Bước 2: i←1; s←0;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+i;
Bước 5: i←i+1, quay lại bước 3
b.
Bước 1: Nhâp N
Bước 2: i←1; s←1;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+i*5;
Bước 5: i←i+1, quay lại bước 3
ML
1 tháng 10 2021
c.
Bước 1: Nhâp N và dãy a1,a2,a3,...,aN
Bước 2: i←1; s←1;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+1/ai;
Bước 5: i←i+1, quay lại bước 3
d.
Bước 1: Nhâp N,K và dãy a1,a2,a3,...,aN
Bước 2: i←1; d←0;
Bước 3: Nếu i>N thì in ra d rồi kết thúc
Bước 4: Nếu ai<K thì d←d+1;
Bước 5: i←i+1, quay lại bước 3
AH
Akai Haruma
Giáo viên
29 tháng 12 2022
Lời giải:
$n=1$ thì $S=0$ nguyên nhé bạn. Phải là $n>1$
\(S=1-\frac{1}{1^2}+1-\frac{1}{2^2}+1-\frac{1}{3^2}+...+1-\frac{1}{n^2}\)
\(=n-\underbrace{\left(1+\frac{1}{2^2}+\frac{1}{3^2}+...+\frac{1}{n^2}\right)}_{M}\)
Để cm $S$ không nguyên ta cần chứng minh $M$ không nguyên. Thật vậy
\(M> 1+\frac{1}{2.3}+\frac{1}{3.4}+...+\frac{1}{n(n+1)}=1+\frac{1}{2}-\frac{1}{3}+\frac{1}{3}-\frac{1}{4}+....+\frac{1}{n}-\frac{1}{n+1}\)
\(M>1+\frac{1}{2}-\frac{1}{n+1}>1\) với mọi $n>1$
Mặt khác:
\(M< 1+\frac{1}{1.2}+\frac{1}{2.3}+...+\frac{1}{(n-1)n}=1+\frac{1}{1}-\frac{1}{2}+\frac{1}{2}-\frac{1}{3}+....+\frac{1}{n-1}-\frac{1}{n}\)
\(M< 1+1-\frac{1}{n}< 2\)
Vậy $1< M< 2$ nên $M$ không nguyên. Kéo theo $S$ không nguyên.
3 tháng 4 2018
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
3 tháng 4 2018
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
