Question

S= 2/7 + 2/14 + 2/21 +........+2/56
помогите пожалуйста решить эту задачу. с помощью оператора while

Answer 1

Program prog;
var s,i:real;

begin

while(i<56) do
begin
i:=i+7;
s:=s+2/i;
end;
writeln('S = ',s:0:3);
end.