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.

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.

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.

17 tháng 2 2019

a.

program caua;

uses crt;

var x,i, n: integer;

A: real;

begin

clrscr;

write('Nhap so n, n = '); read(n);

A:=0; x:=1;

for i:=1 to n do

begin

i:=x*i; A:=1/i;

end;

write("Gia tri bieu thuc dau tien la',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.

2 tháng 1 2018

progrỉnam bai1;

var n,i:longint;

s:real;

begin

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

s:=0;

for i:=1 to n do

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

writeln('Tong la ',s);

readln

end.

3 tháng 1 2018

1) var n,i:integer;

s:real;

begin

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

s:=0;

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

writeln(' Tong la: ',s);

readln;

end.

2) var n,i:integer;

s:real;

begin

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

s:=0;

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

writeln(' Tong la: ',);

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.

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.