// PascalABC.NET 3.3, сборка 1633 от 10.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Матрица A ***'); var a:=MatrRandom(m,n,10,99); a.Println(3); var b:=new integer[m,n]; var c:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10); Writeln('*** Матрица B ***'); b.Println(3); Writeln('*** Матрица C ***'); c.Println(3); Writeln(3*n*'-'); Writeln('Количество нулевых элементов в С: ', c.ElementsByRow.Where(t->t=0).Count); var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum); Writeln('Сумма всех элементов матрицы B: ',sb); Writeln('Сумма всех элементов матрицы C: ',sc); if sb>sc then Writeln('Сумма элементов матрицы B больше') else if sc>sb then Writeln('Сумма элементов матрицы C больше') else Writeln('Суммы элементов матриц B и С равны') end.
Апр, школа №151 мурманской области вам: 1) 24 буквы + 8 цифр = 32 символа 2) 32 символа + 1 пробел = 33 символа 3) а так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит ответ: i = 6 бит 2. здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов. 1) больше или меньше 32? 2) больше или меньше 16? 3) больше или меньше 8? 4) больше или меньше 4? 5) больше или меньше 2? ответ: 5 вопросов. 3. не смогу . мне задали другое . удачи. 3 уже обеспечена : )
Робот' сумка'' о
Объяснение:
( Этот знак ' означает нет буквы)