//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
28,97(10)=33,76(8)=11011,111010(2)
Обратно в 10сс 33,76=3*8+3+7*1/8+6*1/64=28,97
1.19625 в двоичной системе счисления 100110010101001
2. 110 файлов , 120 файлов + папок
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(20, -50, 50);
a.Println;
var b := a.Sum;
Println('Сумма элементов равна', b)
end.