Найдите значения выражения ( x< 4)& (x> 1)для указанных значений числа x: 1,2,3,4​

Системный подход рассматривает явление в целостности его частей, а не по отдельным частям. Так, если вы покупаете машину, то надо смотреть не один ее внешний вид, но и стоимость, а также расход топлива, наличие фирм ремонта и так далее. Нарушение системного подхода ведет к катастрофе, скажем к изменению климата - желание выпускать все больше продукции и строительство предприятий ведет к "тепловому удару".  В биологии нарушение единой системы жизни  в некоторой местности, то есть нарушение биоценоза, также ведет к тяжелым последствиям - излишнее увеличение численности птиц приводит к исчезновению насекомых, среди которых могут быть полезные. А излишнее уменьшение числа птиц ведет к росту числа насекомых и они могут губить леса.

Всего 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.