исполнитель май16 преобразует число на экране. у исполнителя есть три команды, которым присвоены номера:
1. прибавить 1
2. умножить на 2
3. умножить на 3
первая команда увеличивает число на экране на 1, вторая умножает его на 2, третья – умножает на 3.
программа для исполнителя май16 — это последовательность команд. сколько существует программ, для которых при исходном числе 2 результатом является число 28 и при этом траектория вычислений содержит число 12 и не содержит числа 22?
траектория вычислений программы — это последовательность результатов выполнения всех команд программы. например, для программы 121 при исходном числе 7 траектория будет состоять из чисел 8, 16, 17.
Program Runa;
const
n=5;
m=5;
var
A:array[1..n,1..m] of real;
i,j: integer;
max: real;
begin
writeln('матрица A(5x5)');
{Считываем матрицу с экрана}
for i:=1 to n do
for j:=1 to m do
begin
write ('A[ ',i,',',j,' ] = ');
readln (A[i,j]);
end;
{Присваиваем минимальное значение максимуму}
max:=0;
for i:=1 to n do
for j:=1 to m do
{Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}
if (a[i,j]>max) then max:=a[i,j];
{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}
if max>0 writeln ('max= ',max) else
Writeln('Положительных элементов нет');
end.