Question

Viết c/trình Tính : S= 2/3 + 2/6 + 2/9 +...+2/36 Giải bằng câu lệnh while...do

Answer 1

Program HOC24;

var i,n: integer;

s: real;

begin

n:=3; s:=0;

while n<=36 do

begin

s:=s+2/n;

n:=n+3;

end;

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

readln

end.