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.

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.

16 tháng 2 2019

var i,n:integer;

S:real;

begin

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

S:=0;

for i:=1 to n do if i mod 2 = 1 then S:=S+(1/i-1/(i+1));

writeln('ket qua la:',S);

readln

end.

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.

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.

13 tháng 12 2017

Program bai1;

uses crt;

var n,i: integer;

s:real;

begin

clrscr;

s:=0;

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

for i:= 1 to n do

s:=s+(2*i-1)/(2*i);

writeln('S = ' ,s :4:2);

readln;

end.

27 tháng 12 2017

var n,i:integer;

s:real;

begin

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

s:=0;

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

writeln(' tong la : 's)

readln;

end.

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 !