GAECHKA
Твоя помощница в решении задач

как это записать в паскале?

как это записать в паскале
$$(({-1})^{k+1}/(2k))*{a}_{k}$$
0
вопрос задан

Источник


1 ответ
Решение
begin
  var n:=ReadInteger('n =');
  var(s,p):=(0.0,1/2);
  for var k:=1 to n do
    begin
      p*=-1;
      s+=p*ReadReal($'a({k}) =')/k;
    end;
  s.Println;
end.