PascalABC.NET 3.5.1 + .NET Framework 4.7.1
#1
begin
var n := ReadInteger();
var a := Range(1, n);
//Sum
a.Sum.Println;
//произведение
a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;
//Кол-во кратных 2 и 3
a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;
//Среднее ряда
a.Average.Round.Println
end.
#2
begin
var A := ReadArrInteger(10);
A.Println;
//максимум
A.Max.Println;
//Сумма кратных 2 и 3
A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println
end.
253-(х-459)=138
расскрываем скобки, так как перед ними минус то меняем знаки:
253-х+459=138
переносим все , что без икс в право, и знаки меняем:
-х=-253-459+138
-х=-574
х=574
ответ: х=574.