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.

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

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

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

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 !

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.

25 tháng 5 2022

\(A=\dfrac{1}{2}.\left(1+\dfrac{1}{1.3}\right)\left(1+\dfrac{1}{2.4}\right)\left(1+\dfrac{1}{3.5}\right)....\left(\dfrac{1}{2015.2017}\right)\)

\(=\dfrac{1}{2}\left(\dfrac{2}{1}.\dfrac{2}{3}\right).\left(\dfrac{3}{2}.\dfrac{3}{4}\right).\left(\dfrac{4}{3}.\dfrac{4}{5}\right)....\left(\dfrac{2016}{2015}.\dfrac{2016}{2017}\right)\)

\(=\dfrac{1}{2}.\left(\dfrac{2}{1}.\dfrac{2}{3}\right).\left(\dfrac{3}{2}.\dfrac{3}{4}\right).\left(\dfrac{4}{3}.\dfrac{4}{5}\right).....\left(\dfrac{2016}{2015}.\dfrac{2016}{2017}\right)\)

\(=\dfrac{2016}{2017}\)

25 tháng 5 2022

undefined

23 tháng 12 2017

uses crt;

var b:array[1..100] of integer;

i,n,d:integer;

begin

clrscr;

repeat

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

until n>0;

for i:=1 to n do

begin writeln('b[',i,']','=');readln(b[i]);end;

writeln('so cac so le la');

for i:=1 to n do

if b[i] mod 2<>0 then d:=d+1;

writeln(d);readln;end.

23 tháng 12 2017

uses crt;

var n,i:longint; s:real;

begin

clrscr;

s:=0;

writeln('nhap vao n=');readln(n);

writeln('tong cua A la');

for i:=1 to n do

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

writeln(s:4:3);readln;end.