Помогите написать программу на Паскале..

[Yury381]

Помогите написать программу на Паскале..

Дано натуральное число n. Вычислить вот то что вычислить:
:tehnari_ru_837:

 

[Vladimir_S]

Дано натуральное число n. Вычислить вот то что вычислить:
Посмотреть вложение 26864:tehnari_ru_837:

Во-первых, для вопросов по программированию у нас есть специальный раздел, куда Ваша тема и перенесена. Во-вторых, ссылки на сторонние фотохостинги здесь не приветствуются, а потому загляните сюда: http://www.tehnari.ru/f8/t32642/ . В-третьих, вот Вам программа:

VAR
 S:REAL;
 n:Word;
 k,sign:Integer;
BEGIN
 Write('n= ');
 ReadLn(n);
 S:=0;
 sign:=1;
 For k:=1 to n do
  begin
   sign:=-sign;
   S:=S+1.0*sign/(2*k+1)/k;
  end;
 WriteLn('S=',S:10:5);
 ReadLn;
END.

 

[Yury381]

спасибо буду иметь ввиду.