Question

Pascal ABC 9 класс Помогите с решением

Answer 1

Var i,n,a:integer;
     s:real;
begin
write('введите n' , n);read(n)
write('введите а); read(a);
for i:=1 to n do 
if i mod 2 =1 then s:=s+1/(power(a,i)

write(' ===== ',s);
end.