Question

Вычисление суммы,произведение числовых рядов.Не совсем понял, есть объяснение, но очень мутное.

Answer 1

uses Crt;
var
  x,y:real;
  k:integer;
begin
  ClrScr;
  Write('Введите x: '); Read(x);
  y:=0;
  for k:=1 to 3 do y:=y+(3*x-k);
  Writeln('y=',y);
  ReadKey;
end.

Тестовое решение:
Введите x: 10
y=84

Для проверки можно выполнить ручной счет по нижеследующей формуле.
$\dislpaystyle y=\Sigma_{k=1}^3(3x-k)=\Sigma_{k=1}^3(3x)+\Sigma_{k=1}^3(-k)=3kx-\Sigma_{k=1}^3k= \\ 9x- \frac{1+3}{2}\times3 =9x-6$