Чешир
Мыслитель
(8494)
7 лет назад
begin
ReadLn(N)
k:=1;
a:=1;
S:=0;
P:=1;
for i:=1 to N do
begin
S:=S+a*k;
P:=P*a*k;
a:=a+5;
k:=-1*k
end;
WriteLn('Сумма ',N,' первых элементов равна ',S,', а их произведение равно ',P)
end.
Как-то так. Естественно, сначала надо объявить все переменные.
Ряд: y=1-6+11-16+21