б в д е, поскольку отдельно взятая цифра в числе не может превышать основание системы счисления. Например, вариант А ошибочен, так, как основание равно 6, а это значит что наибольшей цифрой в числе должно быть 5
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
2)
позиционная 111 = сто одиннадцать
непозиционная III = 3 (римская) - т.е. единичку куда ни поставь - она везде единичка, в позиционных не так
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036