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 1 2019

Bước 1:Nhập n.Gán i=1,A:=0;

Bước 2:A=1

i(i+2)

Bước 3:i:=i+1

Bước 4:In ra A

Bước 5:Kết thúc vòng lặp.

2 tháng 1 2020

Bài Làm:

Bước 1:Nhập n.Gán i=1,A:=0;

Bước 2:A=1 và i(i+2)

Bước 3:i:=i+1

Bước 4:In ra A

Bước 5:Kết thúc vòng lặp.

17 tháng 4 2022

Bước 1: Nhập N

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

Bước 3: Nếu i<N thì in ra kết quả và kết thúc

Bước 4: A←A+1/(i*(i+2));

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

5 tháng 2 2017

Bước 1: nhập n, \(A\leftarrow0\), \(i\leftarrow1\);

Bước 2: \(A\leftarrow A+\frac{1}{i\left(i+2\right)}\)

Bước 3: \(i\leftarrow i+1\)

Bước 4: Nếu i<=n thì quay về bước 2.

Bước 5: Ghi kết quả A ra màn hình và kết thúc

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 !

b) 

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

  begin

t:=t+1/(i*(i+3));

i:=i+1;

end;

writeln(t:4:2);

readln;

end.

Bước 1: Nhập n

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

Bước 3: A←A+i/(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

9 tháng 2 2018

Mô tả tính tổng:

-B1:A\(\leftarrow0\),i\(\leftarrow1.\)

-B2:A\(\leftarrow\dfrac{1}{i\times\left(i+2\right)}\)

-B3:\(i\leftarrow i+1\)

-B4:Nếu \(i\le n\),quay lại B2

-B5:Ghi kết quảA và kết thúc thuật toán.

9 tháng 2 2018

Giải thuật tính tổng trên là :


- Bước 1:Nhập số n



- Bước 2:S<-0; i<-0;



- Bước 3:i<-i+1;


- Bước 4:Nếu i <= n thì S:=S+1/(i*(i+2)) nghĩa là công vào S = S+1/(i*(i+2)) và quay lại

- Bước 5.Ngược lại thông báo kết quả và kết thúc thuật toán.

14 tháng 3 2023

Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

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

a:=0;

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

write('A = ',a:6:2);

readln

end.

Bước 1: nhập n

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

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

22 tháng 2 2020
Bước 1: nhập n, A ← 0 A←0, i ← 1 i←1; Bước 2: A ← A + 1 i ( i + 2 ) A←A+1i(i+2) Bước 3: i ← i + 1 i←i+1 Bước 4: Nếu i<=n thì quay về bước 2. Bước 5: Ghi kết quả A ra màn hình và kết thúc Đó nha bạn. Good Luck!!

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

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

writeln(a);

readln;

end.