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.

#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;

}

25 tháng 2 2022

Lại C,C++ tiếp 

4 tháng 5 2021

bài 1

23 tháng 12 2020

tức là từ a cộng mấy đến a+n vậy bạn?

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.

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

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.

29 tháng 12 2022

Cảm ơn thầy ạ

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

Lập trình đơn giản

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.