срочно нужно
Это работа в 10 классе, нужно решение

Всего 132052 чисел.

type ArrInteger = Array of Integer;

function getDigits8Base(num: Longword; digitCount: Integer): ArrInteger;

var

   digits: ArrInteger;

   i: Integer;

begin

   setLength(digits, digitCount);

   for i := 0 to digitCount - 1 do begin

       digits[i] := num mod &10;

       num := num div &10;

   end;

   getDigits8Base := digits;

end;

function sum(arr: ArrInteger; first, last: Integer): Integer;

var

   i, accumulator: Integer;

begin

   accumulator := 0;

   for i := first to last do

       accumulator := accumulator + arr[i];

   sum := accumulator;

end;

var

   n, count: Longword;

   digits: ArrInteger;

begin

   count := 0;

   for n := &100000 to &777777 do begin

       digits := getDigits8Base(n, 6);

       if abs(sum(digits, 0, 2) - sum(digits, 3, 5)) <= 4 then

           count := count + 1;

   end;

   writeln(count);

end.