Контрольная работаВариант 11. Перевести из 10 в 2, 8, 16 систему счисления:5077842. Перевести из 2, 8, 16 в 10 систему счисления11110101, 453851FB163. Найти сумму чисел:4538 + 5623= ?F7D16+B9C16=?164. Найти разность чисел:6438-3428= ?8FAD316-B7AE16=?5. Умножить 2 числа1110101, *1010112=?, С РЕШЕНИЕМ ВСЕХ ЗАДАЧ ​

31

Объяснение:

s := 0;

for i:=1 to 9 do

  if A[i-1] < A[i] then begin

        A[i] := A[i-1] + 1;

        s := s + A[i]

   end

В цикле программы выполняются такие действия: если элемент массива с индексом i меньше предыдущего элемента, то элементу массива с индексом i присваивается значение предыдущего элемента, увеличенное на единицу. А затем это новое значение суммируется со значением переменной s.

Если элемент массива с индексом i больше или равен предыдущему элементу, то выполнение переходит к следующему шагу цикла.

При разборе программы стоит составить таблицу трассировки.

Комментарий:

Да условие не до конца дописано, но с таким началом условия скорее всего это задача:

определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do  if A[i - 1] < A[i] then begin  s := s + 1; t := A[i];  A[i] := A[i - 1];  A[i - 1] := t  end;

Незачем считать, хотя и можно, проще просто запустить этот код:

var a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4); i, t, s: integer; begin s := 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end; write(s); end.

Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.