Предмет: Информатика, автор: bolela

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

Ответы

Автор ответа: ali07
0

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.

Похожие вопросы
Предмет: Математика, автор: manedoamn
Предмет: Математика, автор: isenkoila232