Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

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

сергей ерёмин Знаток (332), на голосовании 6 лет назад
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.
Ряд: y=1-6+11-16+21
Голосование за лучший ответ
Чешир Мыслитель (8484) 6 лет назад
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.
Как-то так. Естественно, сначала надо объявить все переменные.
Похожие вопросы