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.

14 tháng 5 2017

program tong;

use crt;

var i,n:integer;

s:real

Begin

write(' nhap n'); readln(n);

s:=0;

for i:= 1 to n do

s:=s+\(\dfrac{1}{i}\)

write(' tong la',s);

readln;

End.

7 tháng 7 2017

program Tinh_Tong;

uses crt;

var a,S,n: Real;

begin clrscr;

writeln('Nhap so n=');Readln(n);

S:=0;

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

writeln('Tong la S=',S);

readln

end.

4 tháng 5 2021

bài 1

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

25 tháng 1 2021

Em cảm ơn anh !

#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 

15 tháng 3 2021

Program HOC24;

var a: real;

i,n: integer;

begin

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

a:=0;

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

write('A= ',a);

readln

end.

15 tháng 3 2021

Program HOC24;

var b: real;

i,n: integer;

begin

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

b:=0;

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

write('B= ',b:1:2);

readln

end.

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

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.

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.