Решите задачу по паскаль плизз смотрите ниже
Решите задачу по паскаль плизз
смотрите ниже
Гость
Ответ(ы) на вопрос:
Гостьprogram Pr;
var
i, n: integer;
zn: integer;
sm: real;
begin
zn:=1;
sm:=0;
Readln(n);
for i:=0 to n do
begin
sm:=sm+1/zn;
zn:=zn*3;
end;
Writeln(sm:0:6)
end.
Не нашли ответ?
Похожие вопросы