Вычислить сумму - Turbo Pascal (33594)

Формулировка задачи:

Вычислить сумму:

Код к задаче: «Вычислить сумму - Turbo Pascal (33594)»

textual
var
  j : integer;
  s : real;
begin
  s := 0;
  write('введите j: ');
  readln(j);
  for j := 1 to 30 do  
    s := s + sqrt(j * j * j + j + 3) / arcsin(1 / (j + 1));
  writeln('s = ', s);
  readln
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ