Delphi Задача

[Lexa567]

Найти сумму всех непарных чисел от x до y
Как это реализовать?
Заранее благодарен

[Скандербег]

Что есть "непарные числа"?

[denisbrain]

Сообщение от Скандербег

Что есть "непарные числа"?

http://otvet.mail.ru/question/23612000/

if x mod 2 = 0 then  //   "парные числа"
else "непарные числа"

[Stilet]

Это не парность а четность.

[Скандербег]

Нехорошо, что люди начинают путать понятия четные/нечетные числа с парными/непарными.
Во-первых такая подмена понятий может превратиться в привычку и тогда кто-то кого-то перестанет понимать.
Во-вторых, поиск (в какой выливается задача) нечетных или непарных чисел реализуются совсем по-разному. Задача поиска непарных чисел довольно известна в инете и в зависимости от условий такой задачи придуманы разные алгоритмы поиска. А то что это не такая тривиальная задача как поиск четного/нечетного числа, говорят многочисленные дискуссии по этому поводу.

Так что, если у ТС актуальность задачи не претерпела изменений, подождем чего он скажет. Может добавит еще условий и/или скажет точно что искать.

[denisbrain]

var s:string;
begin
s:='1234';
if copy(s,1,length(s) div 2)=copy(s,length(s) div 2+1,length(s) div 2) then  "парные числа"
else "непарные числа"
end;

[turok7770]

readln(x);
readln(y);

for i:=x to y do
 begin
   if (i mod 2) <>0 then
     begin
       sum:=sum + i;
     end;
 end;

[Lexa567]

Спасибо большое!