Question

Вычислите сумму нечетных чисел, не превышающих числа x. Первое нечетное число=1.

Answer 1

program xxx;

    var i, x, s : integer;

begin

  write('введите число Х=');

  readln(x);

  s:=0

  i:=1

  while i <=x do

    begin

      s:=s+i;

      i:=i+2

    end;

  write('сумма нечетных чисел ='; s); 

  readln

end.