Ввод осуществляется с клавиатуры. Ввести натуральное n и действительное a. Вычислить...

Question

Ввод осуществляется с клавиатуры. Ввести натуральное n и действительное a. Вычислить S=1/a+1/a^2+1/a^4+...1/a^2n-2

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a:=ReadReal('a=');

 var n:=ReadInteger('n=');

 var s:=1/a; // для n=1

 if n<=1 then s+=1</p>

 else

 begin

   a*=a; // a^2

   var z:=a;

   for var i:=2 to n do

   begin

     s+=1/z;

     z*=a

   end

 end;

 Println(s)

end.

a= 3.73

n= 5

0.34553638581855

Comments

Нужен python, а не pascal.

---

А так спасибо

---

Да? И откуда следует, что нужен Питон? Опять "Ах, извините, мой косяк!" ?

---

У меня дано это задание для python, а не для pascal

---

Под python я сам передела

---

переделаю*