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

Создадим небольшие преобразования.
$\displaystyle S=1+ \frac13+ \frac13^2+...+ \frac13^8= \frac3^8+3^7+3^6+...+13^8= \\ \\ \frac13^8\sum_i=0^83^i ; \qquad \sum_i=0^83^i =1+3+3\cdot3+3\cdot3\cdot3+...; \\ \\ a_0=1; \quad a_1=3\cdot a_0; \quad a_2=3\cdot a_1\quad ...\quad a_8=3\cdot a_7 \\ \\ amp;10;S= \frac1a_8\left(a_0+\sum_i=1^8 a_i \right), \quad a_i=3\cdot a_i-1, \,a_0=1$
Сейчас можно писать программку. Проведенное преобразование дозволяет вычислить S безусловно точно в виде простой дроби. В ответе можно дать десятичную дробь, но преображенье к ней будет единственной неточной операцией. Не считая того, скорость исполненья целочисленной математики часто превосходит скорость работы в арифметике с плавающей точкой.

var
i,s,a:integer;

begin
a:=1; s:=a;
for i:=1 to 8 do begin
a:=3*a; s:=s+a
end;
Writeln('S = ',s,'/',a,' = ',s/a)
end.

Итог
S = 9841/6561 = 1.49992379210486

Заманков Алексей · Answer 2 · 2019-02-09 10:56:36+3:00

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

О проекте

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

Добро пожаловать!