Вычислить при заданном значении n значение выражения

@Арыстан Азизов · Регистрация: 23.01.2019

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

Требуется вычислить при заданном значении n.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Y=\frac{\sin 10+\sin 11+...+\sin 50}{\left(1+\frac{1}{2}+\frac{1}{3}+...+\frac{1}{n+20} \right)^2}<br />$

Помогите пожалуйста))

@Cyborg Drone · 25.01.2019, 21:04

Pascal

var
  y, x: real;
  n, i: integer;
 
begin
  write('n = ');
  readln(n);
  y := 0;
  for i := 10 to 50 do y := y + sin(i);
  x := 0;
  for i := 1 to n + 20 do x := x + 1 / i;
  if x > 0
    then begin
      y := y / x / x;
      write('Y = ', y:0:15)
    end
    else write('Y не определено');
  readln
end.

@Арыстан Азизов 0 / 0 / 0 Регистрация: 23.01.2019 Сообщений: 8
		1
	Вычислить при заданном значении n значение выражения 23.01.2019, 09:27. Показов 776. Ответов 1 Метки delphi (Все метки) Требуется вычислить при заданном значении n. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Y=\frac{\sin 10+\sin 11+...+\sin 50}{\left(1+\frac{1}{2}+\frac{1}{3}+...+\frac{1}{n+20} \right)^2}<br />$ Помогите пожалуйста)) 0

Опции темы