Turbo PascalДаны действительное число а, натуральное число n. Вычислить: S = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2
Turbo Pascal
Даны действительное число а, натуральное число n. Вычислить:
S = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2
Гость
Ответ(ы) на вопрос:
ГостьКак в задании:
var a,an,s:real; n,i:integer;
begin
write('a = '); readln(a);
write('n = '); readln(n);
s:=1/a;
an:=1;
for i:=2 to n do
begin
an:=an*a*a;
s:=s+1/an;
end;
writeln('s = ',s);
end.
Пример:
a = 2
n = 4
s = 0.828125
Не нашли ответ?
Похожие вопросы