Вычисляем по формулам:
N = 2^b
I = k*b
Где N - мощность алфавита, b - инф. вес символов, k - количество символов
Отсюда,
128 = 2^b
b = 6
12 кб = 98304 бит
98304 = k * 6
k = 16384
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var b := a.Select((v,i) -> (i + 1) * v).ToArray;
b.Println;
end.
1) за 5 команд невозможно решить. минимум 6: 112222
2)сместиться на (0; 0)
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3>
begin
var s := ReadInteger.ToString;
var Четных := s.Where(c -> '02468'.Contains(c)).Count;
var Нечетных := s.Where(c -> '13579'.Contains(c)).Count;
Println('Четных', Четных, 'нечетных', Нечетных);
end.
Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.