Вычисление суммы,произведение числовых рядов.Не совсем понял, есть объяснение, но очень мутное.
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
Для проверки можно выполнить ручной счет по нижеследующей формуле.
Оцени ответ
