РЕШИТЬ ВСЁ 1.Определите значение переменной а после выполнения данного алгоритма: b := 3 a := -8 b := - id1201460420230104 от zaurezhunus 04.01.2023 21:16

Question

Информатика: РЕШИТЬ ВСЁ 1.Определите значение переменной а после выполнения данного алгоритма: b := 3 a := -8 b := 7 – a + b a := a / 2 + b В ответе укажите одно целое число – значение а. 2.Определите, что будет напечатано в результате работы следующей программы. Var k, і: integer; Begin k := 4; For і := 1 to 3 do k := 2*k + і; Writeln(k); End 3. У исполнителя Умножатель две команды, которым присвоены номера: 1.умножь на 3 2.прибавь 1 Исполнитель работает только с натуральными числами. Составьте алгоритм получения

zaurezhunus · Accepted Answer

//PascalABC.Net 3.0, сборка 1064 type   IntArray = array of integer; var   rows, cols: integer;   M: array of IntArray; begin   Write( Количество строк и столбцов матрицы: ); Read(rows, cols);   var Avg: array of double := new double[cols];   M := new IntArray[rows];   SetLength(Avg, cols);   for var i := 0 to rows - 1 do   begin     M[i] := ArrRandom(cols, -25, 25);     M[i].Println(#9)   end;   for var j := 0 to cols - 1 do     Avg[j] := Range(0, rows - 1).Select(x - M[x, j]).Average;   Writeln(...

MOGZ ответил