В скобках указано решение. после знака _ это значит, что число должно быть указано ниже числа маленькими буквами ( ). " значит, что чисто будет вверху маленькой буквой ( )
ovdei71
25.09.2021
1. Вариант современного решения на современной версии языка Паскаль
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:array[,] of integer:=( ( 2, 1,-1, 4), (-3, 1,-4, 1), ( 2, 1, 2, 3), ( 2, 2, 5, 4), (-3,-1,-3, 1)); Writeln('*** Исходная матрица ***'); a.Println(3); Writeln(3*a.ColCount*'-'); var s:=a.Col(2).Where(x->Abs(x)<=3); Writeln('Элементов ',s.Count,', их сумма равна ',s.Sum) end.
procedure SumCol(m,k:integer; var p,s:integer); var i:integer; begin s:=0; p:=0; for i:=1 to m do if Abs(a[i,k])<=3 then begin s:=s+a[i,k]; p:=p+1 end end;
var i,j,kol,sum:integer;
begin Writeln('*** Исходная матрица ***'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:3); Writeln end; for i:=1 to n do Write('---'); Writeln; SumCol(m,3,kol,sum); Writeln('Элементов ',kol,', их сумма равна ',sum) end.
2) 807=2055 (807_16 = 8∙16"2+0∙16"1+7∙16"0 = 2048+0+7 = 2055_10)
3) 10111=23 (10111_2 = 1∙2"4+0∙2"3+1∙2"2+1∙2"1+1∙2"0 = 16+0+4+2+1 = 23_10)
4)423=213 (423_7 = 4∙7"2+2∙7"1+3∙7"0 = 196+14+3 = 213_10)
5)223=43 (223_4 = 2∙4"2+2∙4"1+3∙40 = 3"2+8+3 = 43_10)
6)724=468 (724_8 = 7∙8"2+2∙8"1+4∙8"0 = 448+16+4 = 468_10)
В скобках указано решение. после знака _ это значит, что число должно быть указано ниже числа маленькими буквами (