Вычислить сумму

@Damir1996 · Регистрация: 30.05.2014

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

s=cosx+cos2x+cos3x...cos13x

@Cyborg Drone · 30.05.2014, 10:34

Pascal

var x, s: real;
    i: integer;
begin
  write('x = ');
  readln(x);
  s := 0;
  for i := 1 to 13 do s := s + cos(i * x);
  writeln('s = ', s:0:16);
  readln
end.

Не по теме:

Damir1996, не поленитесь прочитать хотя бы с полсотни страниц любого учебника по любому паскалю. Столь тривиальные задачи пора решать самому.

@Damir1996 · 30.05.2014, 21:45 **[ТС]**

Спасибо огромное!!!!

@Damir1996 0 / 0 / 0 Регистрация: 30.05.2014 Сообщений: 6
		1
	Вычислить сумму 30.05.2014, 09:47. Показов 2032. Ответов 2 Метки нет (Все метки) s=cosx+cos2x+cos3x...cos13x 0

@Damir1996 0 / 0 / 0 Регистрация: 30.05.2014 Сообщений: 6
	30.05.2014, 21:45 [ТС]	3
	Спасибо огромное!!!! 0

Вычислить сумму

Решение