Плевая задача. Pascal

Question

Плевая задача. Pascal

сергей ерёмин Знаток (332), на голосовании 7 лет назад

Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.
Ряд: y=1-6+11-16+21

Answer 1

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.
Как-то так. Естественно, сначала надо объявить все переменные.