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

0 голосов
61 просмотров

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


Информатика (78 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

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

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

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

КОН Задание.