Возведение в степень

[neolanta]

Помогите решить задачу на паскале.
Найдите сумму a^-1+a^-2+a^-4+a^-8+...+(a^-2)^n

[Студент Михаил]

Я правда не додумал как можно сделать первый член (a^-1) сделать в формуле. Поэтому примерно так. Дальше может сам(-а) додумаешь.
P.s. Степень делал через экспоненты так как паскаль не воспринимал "^".

program qwer;
var
a,n,i: integer;
sum: real;
begin
writeln('Введите n');
readln (n);
writeln('Введите а');
readln(a);
sum:=exp(-1*ln(a));
for i:=1 to n do begin
sum:=sum+exp(i*exp(-2*ln(a)));
end;
writeln(sum);
end.

[Poma][a]

t := 1/a;
sum := 0;
for i := 1 to n do begin
    sum := sum+t;
    t := t*t
end

[neolanta]

Сообщение от Студент Михаил

Я правда не додумал как можно сделать первый член (a^-1) сделать в формуле. Поэтому примерно так. Дальше может сам(-а) додумаешь.
P.s. Степень делал через экспоненты так как паскаль не воспринимал "^".

program qwer;
var
a,n,i: integer;
sum: real;
begin
writeln('Введите n');
readln (n);
writeln('Введите а');
readln(a);
sum:=exp(-1*ln(a));
for i:=1 to n do begin
sum:=sum+exp(i*exp(-2*ln(a)));
end;
writeln(sum);
end.

Спасибо большое

[neolanta]

У меня получилось так. Спс Вам за помощь.
PROGRAM PR;
USES CRT;
VAR N,I,A,:INTEGER;
s:REAL;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
WRITELN('INPUT A');READLN(A);
s:=0;
FOR I:=1 TO N DO BEGIN
S:=S+1/(exp(exp(i*ln(2))*ln(a)));
END;
WRITELN(S+1/a:2:4);
READKEY;
END.

[Serge_Bliznykov]

Сообщение от neolanta

У меня получилось так.

О! Дело ваше, конечно.
Это, конечно, хорошо, но что же Вы не воспользовались кодом Poma][a из пост #3 ?!

На мой взгляд он намного короче, проще, понятнее, эффективней.
Да и красивее, в конце концов!

или Вы в нём не разобрались?!
или забыли, что такое отрицательная степень? ( что A в степени -K, это единица, делённая на A в степени K )?