Ввод осуществляется с клавиатуры.
Ввести натуральное n и действительное a. Вычислить S=1/a+1/a^2+1/a^4+...1/a^2n-2
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
А так спасибо
Ответ дал:
0
Да? И откуда следует, что нужен Питон? Опять "Ах, извините, мой косяк!" ?
Ответ дал:
0
У меня дано это задание для python, а не для pascal
Ответ дал:
0
Под python я сам передела
Ответ дал:
0
переделаю*
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад