у исполнителя Омега две команды, которым присвоены номера: 1. вычти b2. раздели на 2(b неизвестное натуральное число.) Выполняя первую из них, Омега уменьшает число на экране на ь, а выполняя вторую, делит это число на 2.Программа для исполнителя Омега — это последовательность номеров команд.Известно, что программа 21111 переводит число 94 в число 3.Определите значение b.​

ответ: 11

Объяснение: составим уравнение.

94 : 2 - b - b - b - b = 3

47 - 4b = 3

4b = 44

b = 11

алг
нач
  цел a, sum, pro
  вывод 'Введите трёхзначное положительное число: '
  ввод a
  если a<100 или a>999
    то вывод 'Это не трёхзначное число. Перезапустите программу!'
    иначе
      sum := mod(a, 10) + mod(div(a,10),10) + div(a,100)
      pro := mod(a, 10) * mod(div(a,10),10) * div(a,100)
      если sum > 9 и sum < 100
        то вывод 'Сумма цифр числа ',a,' - двухзначное число (',sum,')', нс
        иначе вывод 'Сумма цифр числа ',a,' - не двухзначное число (',sum,')', нс
      все
      если pro > 99 и pro < 1000
        то вывод 'Произведение цифр числа ',a,' - трёхзначное число (',pro,')', нс
        иначе вывод 'Произведение цифр числа ',a,' - не трёхзначное число (',pro,')', нс
      все
      если mod(sum, 3) = 0
        то вывод 'Эта же сумма (',sum,') кратна трём', нс
        иначе вывод 'Эта сумма (',sum,') не кратна трём', нс
      все
  все
кон

ответ: Программа выполняет рандом массива

Объяснение:

const N = 10; //Переменная которая содержит число 10

var //переменная для массива

arr: array[1..N,1..N] of integer; //массив

max: integer;  

i,j: byte;// переменные

begin //конец цикла

randomize; //рандом

for i:=1 to N do begin //цикл  

for j:=1 to N do begin //цикл

arr[i,j] := random(1000); // рандом всего массива по циклу  

write(' |',arr[i,j]:3,'| '); //вывод текста

end;//конец  

writeln; //переброс на следующую строку

end;//конец

for i:=1 to N do //цикл

write(' '); //вывод строки

writeln; //переброс на следующую строку

for j:=1 to N do begin //цикл

max := arr[1,j]; // запись цикла

for i:=2 to N do //цикл

if arr[i,j] > max then //проверка если массив больше максимального  

max := arr[i,j]; // запись массива

write(' ',max:3,' '); //вывод результата

end; //конец

writeln; //переброс на следующую строку

end." //конец кода