Решите циклом. даны действительное число а, натуральное число п. вычислить: s =1 + 1/a2 +1/a4 + +1/a2n-2

Var       a, s, t: real;       n, i: integer; begin       readln(a, n);       t : = 1;       for i : = 1 to n do       begin               s : = s + 1 / t;               t : = t * a * a;       end;       writeln(s); end. аналог не руби для проверки блин a=2.0 n=4 s=0.0 for i in 1..n       s+=1/a**(2*i-2)       p [a**(2*i-2), (2*i-2)] end p s

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

1-я строка имеет длину 1

2-я - 3

3-я - 7

4-я - 15

5-я - 31

6-я - 63

7-я - 127

8-я - 255

9-я - 511 = 8я+8я+i

причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i

8-я строка это две 7-х строки и символ h

каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано