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

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

Question

Венура

18 сентября, 06:53

+2

Ответы (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