здоров!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
1.
2(10) = 10(2); (10)- индекс внизу без скоб
7(10) = 111(2);
17(10) = 10001(2);
68(10)= 1000100(2);
315(10)= 100111011(2).
2.
101(2)= 1 * 2^(2) + 0 *2^(1)+ 1 . 2^(0) = 4 + 1 = 5(10);
11101(2) = 1 *2^(4) + 1 * 2^(3) + 1 *2^(2)+ 0 *2^(1) + 1 *2^(0)= 16 + 8 + 4 + 1 = 29(10);
101010(2) = 1 *2^(5) + 0 *2^(4)+ 1*2^(3) + 0 *2^(2) + 1 *2^(1) + 0 *2^(0)= 32 + 0 + 8 + 0 + 2 + 0 = 42(10);
100011(2) = 1 *2^(5)+ 0 * 2^(4) + 0 *2^(3)+ 0 *2^(2) + 1 *2^(1) + 1 *2^(0)= 32 + 2 + 1 = 35(10).