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.

5 tháng 1 2018

program Bai_1;

uses crt;

var n,i:integer; s:real;

begin

clrscr;

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

for i:=1 to n do s:=s+1/(2*i);

write('S=',s);

readln;

end.

program Bai_2;

uses crt;

var n,i:integer; gt:longint; s:real;

begin

clrscr;

write('n='); readln(n);

gt:=1;

for i:=1 to n do

begin

gt:=gt*i;

s:=s+1/gt;

end;

write('S=',s);

readln;

end.

7 tháng 1 2018

- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq

4 tháng 5 2021

bài 1

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.

a: \(M=\dfrac{6}{5}+\dfrac{3}{2}\left(\dfrac{2}{5\cdot7}+...+\dfrac{2}{97\cdot99}+\dfrac{2}{99\cdot101}\right)\)

\(=\dfrac{6}{5}+\dfrac{3}{2}\left(\dfrac{1}{5}-\dfrac{1}{101}\right)\)

\(=\dfrac{6}{5}+\dfrac{3}{10}-\dfrac{3}{202}=\dfrac{150}{101}\)

b: undefined

#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 

18 tháng 1 2021

Program HOC24;

var s: real;

i,n: integer;

function tong(x: integer): longint;

var j: integer;

t: longint;

begin

t:=0;

for j:=1 to x do t:=t+j;

tong:=t;

end;

function tich(s: integer): longint;

var j1: integer;

t1: longint;

begin

t1:=1;

for j1:=1 to s do t1:=t1*j1;

tich:=t1;

end;

begin

write('Nhap N : '); readln(n);

for i:=1 to n do s:=s+tong(i)/tich(i);

write('S = ',S:2:2);

readln

end.

uses crt;

var s:real;

i,n:longint;

{------------ham-tinh-giai-thua------------------------}

function gthua(x:longint):real;

var gt:real;

i:longint;

begin

gt:=1;

for i:=1 to x do 

  gt:=gt*i;

gthua:=gt;

end;

{-------------------chuong-trinh-con-tinh-tong---------------------}

function tong(x:longint):real;

var t:real;

i:longint;

begin

t:=0;

for i:=1 to x do 

  t:=t+i;

tong:=t;

end;

{------------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(tong(i)/gthua(i));

writeln('Ket qua la: ',s:4:2);

readln;

end.

2 tháng 1 2018

var n,i:integer;

s:real;

begin

write('n=');readln(n);

s:=0;

for i:=1 to n do s:=s+(1/i)+(1/(i+1));

writeln(' Tong la: ',s:0:1);

readln;

end.

12 tháng 3 2018

program bai1;

var s,n,i:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

write('S= ',s);

readln

end.

12 tháng 3 2018

Var i , n : integer ;

S : real;

Begin

write ( 'n =') ; read (n) ;

S:= 0;

For i:=1 to n do S : = S + 1/i;

Writeln (S);

Readln;

End.