Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.