Составить программу для вычисления суммы ряда (pascal ABC)

1+3+5+7 ... + n

Question

Риммич

20 апреля, 22:27

+4

Ответы (1)

Знаете ответ на вопрос?

Акулина · Answer 1

Program chik;

var n, s, i:longint;

begin

read (n) ;

i:=-1;

s:=0;

while i<=n do

begin

i:=i+2;

s:=s+i;

end;

writeln (s) ;

end.

Составить программу для вычисления суммы ряда (pascal ABC)1+3+5+7 ... + n