В заданной последовательности найти сумму положительных чисел из первых 100 членов

@007in · Регистрация: 29.09.2015

Author24 — интернет-сервис помощи студентам

Задана последовательность a(n)=n*sin(n). Найти сумму положительных чисел из первых 100 членов.

@erl27 · 13.10.2015, 21:44

Pascal

var
  a, sum: real;
  n: byte;
  
begin
  sum := 0;
  for n := 1 to 100 do begin
    a := n * sin(n);
    if a > 0 then sum := sum + a
  end;
  writeln('sum = ', sum:0:5);
  readln
end.

@007in · 13.10.2015, 21:52 **[ТС]**

Спасибо!

@007in 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 4
		1
	В заданной последовательности найти сумму положительных чисел из первых 100 членов 13.10.2015, 21:09. Показов 2213. Ответов 2 Метки нет (Все метки) Задана последовательность a(n)=n*sin(n). Найти сумму положительных чисел из первых 100 членов. 0

@007in 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 4
	13.10.2015, 21:52 [ТС]	3
	Спасибо! 0

В заданной последовательности найти сумму положительных чисел из первых 100 членов

Решение