Question

viết chương trình tính tổng A sau đây(n là số tự nhiên được Nhập vào bàn phím)

A=1/1.3+1/2.4+1/3.5+...+1/n(n+2)

giúp e với mai ktra r ạ

sử dụng câu lệnh for do ạ tin học lớp 8 bài caau lệnh cặp

Answer 1

Program vct;

Uses crt;

var

A,i,n:integer;

S:=0;

begin

writeln('moi nhap n: '); readln(n);

for i:=1 to n-2 do

begin

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

end;

write(S); readln;

end.

Answer 2

progran bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

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

writeln('Tong la ',s);

readln

end.