Question

Sử dụng câu lệnh lặp để viết chương trình tính tổng dãy số:

A= 1+1/2+1/4+...+1/2n (n khác 0)

Answer 1

Program hotrotinhoc_hoc24;

var a: real;

i,n: integer;

begin

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

a:=1;

for i:=1 to n do

a:=a+1/(2*n);

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

readln

end.