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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.