Question

Знайти різницю між сумою парних і непарних чисел менших 80. зробити в паскалі

Answer 1

program SumDifference;

var

 i, sumEven, sumOdd, difference: integer;

begin

 sumEven := 0;

 sumOdd := 0;

 for i := 1 to 79 do

 begin

   if (i mod 2) = 0 then

     sumEven := sumEven + i

   else

     sumOdd := sumOdd + i;

 end;

 difference := sumEven - sumOdd;

 writeln('Difference: ', difference);

end.