2 Сурет карастырыңыз. Эргономика ережесі сакталмаган екі арекет көрсетіңіз
1) . 2) . 3) .​

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.

ответ:Binary coding — 0010101101010010010101110100101

00101101101100010000101000100110

00101100001001101010100100101011

101010000

Informatica — 0011001001010111010011110101100

00101101101010110010010100101110

1010100100100110001001010

Kazakhstan — 0011010001001010011000110100101

00101010001010001010111000101110

10100101001010111

Rykhani jangyry — 0011101101100010010101000101000

10100101001010111010100100001010

00101001101001010010101110101000

00110001001011011011000100000111

00001110000101100010010110101101

10000111000011011001011110000111

00001110000101110

Объяснение: