Задача на сумму ряда

@Ancore · Регистрация: 20.11.2013

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

Доброго утра, форумчане!
Помогите пожалуйста реализовать на паскале следующую задачу, сам очень затрудняюсь это сделать.
Прикрепил вложение

Kodzaev · 20.11.2013, 10:49

Pascal

var
  s, x: real;
  i: byte;
 
begin
  Write('X = ');
  Readln(x);
  while i < 20 do
  begin
    i := i + 2;
    s := s + 1 + (Sin(Sqr(i) + x)) / (Cos(3 * i) * Exp((1 / 4) * Ln(Abs(x))));
  end;
  Writeln('S = ', s:0:5);
  Readln
end.

@Ancore 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 2
		1
	Задача на сумму ряда 20.11.2013, 10:36. Показов 1024. Ответов 1 Метки нет (Все метки) Доброго утра, форумчане! Помогите пожалуйста реализовать на паскале следующую задачу, сам очень затрудняюсь это сделать. Прикрепил вложение Миниатюры 0

	20.11.2013, 10:49

Задача на сумму ряда

Решение