Question

Дана последовательность:
d(n) sinn; n 1, 2,..., 50.
Вычислить сумму всех элементов этой последовательности, удовлетворяющих
условию:
|d(n)|>0.5

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла";

ПЕР
  d: РЯД 50 ИЗ ВЕЩ;
  n, сумма: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  n := 1.0; сумма := 0;
  ОТ сч := 0 ДО РАЗМЕР(d) - 1 ВЫП
    d[сч] := УЗК(Матем.sin(n));
    n := n + 1.0;
    ЕСЛИ МОДУЛЬ(d[сч]) > 0.5 ТО
      сумма := сумма + d[сч]
    КОН
  КОН

КОН Задание.