//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
Ответ:
Зайди в статус, нажми на 3 точки и "Приватность статуса", а там на "Мои контакты"
Если в конце должна стоять точка то всего 42 символа. Умножаем на 16, получаем 672 бита.
Решение смотри в приложенном скриншоте.