[qazxcdews]

Найти сумму положительных черных чисел, меньших 50.

[Страдалецъ]

А что делать будете с отрицательно-белыми?

[qazxcdews]

Извиняюсь чётных!

[Страдалецъ]

Код:

1 2 3 4 5 6 7 8 9 10

Var   Sum,i: Integer; begin  Sum := 0;  for i := 1 to 49  do if i mod 2 = 0     then Inc(Sum,i);  WriteLn(Sum);  ReadLn; end.