Question

Номер 28!

Даны действительное число а,натуральное число n. Вычислите:
S=1/a+1/a(во 2 степени)+1/а(в 4 степени)+..1/а(в степени 2n-2)

В турбо паскале

Answer 1

var
a,s:real;
n,i:integer;
begin
   write('Введите a= ');
   readln(a);
   write('Введите n= ');
   readln(n);  
   s:=1/a;
   for i:= 2 to n do s:=s+1/power(a,2*i-2);
   writeln('S= ',s);
   readln;
 end.