// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (s,p):=(0,BigInteger(1)); for var i:=0 to m-1 do if i.IsEven then p*=a.Row(i).Where(t->t<0).Aggregate(BigInteger(1),(x,y)->x*y) else s+=a.Row(i).Where(t->t>0).Sum; Writeln('S = ',s,', П = ',p) end.
У меня это уже было я из тетрадки перепишу 2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268 3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке) 137 / 2 = 68 ( остаток 1) 68 / 2 = 34 (остаток 0) 34 / 2 = 17 (остаток 0) 17 / 2 = 8 (остаток 1) 8 / 2 = 4 (0) 4 / 2 = 2 (0) 2 / 2 = 1 (0) Теперь надо записать остатки в обратном порядке = 10001001 4) Как я понял 8 и 16 это систему счисления, если да то: а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105 б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44 ну блин как то так наверное
y = x ^ 3 + 2.5 * x ^ 2 - x + 1
PRINT y