Question

Câu 1: Viết chương trình tính tổng và in ra kết quả của tổng đó (với n là một số nguyên được nhập từ bàn phím):

S= 1/2+1/3+1/4+ ... + 1/n+1

Câu 2: Viết chương trình tính tổng và in ra kết quả của tổng đó:

A=1/1.2 + 1/2.3 + 1/3.4 + ... + 1/n(n+1)

Answer 1

câu2

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.

Answer 2

Câu 1:

Program HOC24 ;

var i,n : integer ;

s: real;

begin

write('nhap gia tri n:'); readln(n);

S:=0;

for i:= 1 to n do

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

write('S= ',S:6:2);

readln

end.