Вычесление сумм и произведений

20.10.2013, 09:48. **Показов** 1073. **Ответов** 1

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

С помощью оператора цикла for вычислить y. Оператор if в теле цикла не использовать. Значение m и n вводить с клавиатуры. Шаг изменения переменных i и j указывается только в том случае, если он отличается от единицы.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sum_{p=1}^{2mn}\left({e}^{p} cos\sum_{j=2}^{p+n}j{p}^{2}\right)$
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\prod_{j=1}^{n}{\left(\frac{2}{3} \right)}^{j}$
j=1,3,9,27...
Помогите пожалуйста

@CodeR · 20.10.2013, 10:05

Pascal

Var m,n,p,j:integer;
    y,s:real;
Begin
    write('n,m: ');readln(n,m);
    For p:=1 to 2*m*n do
    Begin
      s:=0;
      For j:=2 to p+n do
       s:=s+j*p*p;
      y:=y+exp(p)*cos(s);
    End;
    writeln('Y1 = ',y:0:2);
    y:=1;
    For j:=1 to n do
     y:=y*(2/3);
    writeln('Y2 = ',y:0:2);
    readln;
End.

nastey
		1
	Вычесление сумм и произведений 20.10.2013, 09:48. Показов 1073. Ответов 1 Метки нет (Все метки) С помощью оператора цикла for вычислить y. Оператор if в теле цикла не использовать. Значение m и n вводить с клавиатуры. Шаг изменения переменных i и j указывается только в том случае, если он отличается от единицы. $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sum_{p=1}^{2mn}\left({e}^{p} cos\sum_{j=2}^{p+n}j{p}^{2}\right)$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\prod_{j=1}^{n}{\left(\frac{2}{3} \right)}^{j}$ j=1,3,9,27... Помогите пожалуйста

	20.10.2013, 10:05

Вычесление сумм и произведений

Решение