Question

Помогите пожалуйста написать программу Pascal !

Answer 1

var i: integer;
    s,p: real;
begin
  s:=1; p:=1;
  for i:=1 to 8 do 
  begin
    p:=p*3;  
    s:=s+1/p;
  end;
  writeln('сумма: ',s:7:5);
end.

сумма: 1.49992