Найдите сумму натуральных нечетных чисел не превышающих n!Сделать циклм while

1

Ответы и объяснения

2013-03-22T06:14:07+00:00

var i,n,sum:integer;

Begin

  read(n);

  i:=1;

  sum := 0;

  while i<=n do

  begin

     sum := sum + i;

     i := i + 2;

  end;

write(sum);

end.