Задача.
Для данного N составить алгоритм вычисления значения выражения:

• Бейсик
  REM Вычислить сумму ряда
  INPUT "Введи N="; N
  S=0: F=1: F1=1
  FOR K=1 TO N
  J=\(\-1\)^K*1/F1*2*F
  S=S+J
  NEXT K
  PRINT "Сумма="; S
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление суммы ряда}
  var
  l,k,f,f1:integer;
  s,j:real;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  s:=0; f:=1; f1:=1; l:=1;
  for k:=1 to n do begin
  l:=l*\(\-1\); j:=l*1/\(f1\*2\*f\); s:=s+j end;
  writeln \( ‘ сумма=‘, s\)
  end.
• Бейсик
  REM Вычислить сумму ряда
  INPUT "Введи N="; N
  S=0: F=1: F1=1
  FOR K=1 TO N
  F=F*K
  F1=F1*\(K\+1\)
  J=\(\-1\)^K*1/F1*2*F
  S=S+J
  NEXT K
  PRINT "Сумма="; S
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление суммы ряда}
  var
  l,k,f,f1:i nteger;
  s,j: real;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  s:=0; f:=1; f1:=1; l:=1;
  for k:=1 to n do begin
  f:=f*k; f1:=f1+\(k\+1\);
  l:=l*\(\-1\); j:=l*1/\(f1\*2\*f\); s:=s+j end;
  writeln \( ‘ сумма=‘, s\)
  end.