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

• Бейсик
  REM Вычисление суммы
  INPUT "Введи N=";N
  S=0: M=0
  FOR X=1 TO N
  K=SIN\(X\): S=S+K: M=M+1/S
  NEXT X
  PRINT "Сумма равна", M
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление суммы}
  var
  x,n:integer;
  s,m,k:real;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  s:=0; m:=0;
  for x:=1 to n do
  begin k:=sin\(x\); s:=s+k; m:=m+1/s end;
  writeln \( ‘ сумма=‘, m\)
  end.

• Бейсик
  REM Вычисление суммы
  INPUT "Введи N="; N
  S=0: M=0
  FOR X=1 TO N
  K=SIN\(X\): S=S+K: M=\(M\+1\)/S
  NEXT X
  PRINT "Сумма равна", M
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление суммы}
  var
  x,n:integer;
  s,m,k:real;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  s:=0; m:=0;
  for x:=1 to n do
  begin k:=sin\(x\); s:=s+k; m:=\(m\+1\)/s end;
  writeln \( ‘ сумма=‘, m\)
  end.