Цикл while. Сумма чисел на интервале.
Добавлено: 12 апр 2009, 18:00
Вот задача: Найти сумму четных, положительных и отрицательных чисел на отрезке [a;b] (С помощью цикла WHILE)
x:=a;
while x<=b do
begin
if x>0 then inc(positive, x);
if x<0 then inc(negative,x)
if not odd(x) then inc(even, x);
inc(x);
end;