исполнитель май16 преобразует число на экране. у исполнителя есть три команды, которым присвоены номера:




1. прибавить 1

2. умножить на 2

3. умножить на 3



первая команда увеличивает число на экране на 1, вторая умножает его на 2, третья – умножает на 3.

программа для исполнителя май16 — это последовательность команд. сколько существует программ, для которых при исходном числе 2 результатом является число 28 и при этом траектория вычислений содержит число 12 и не содержит числа 22?

траектория вычислений программы — это последовательность результатов выполнения всех команд программы. например, для программы 121 при исходном числе 7 траектория будет состоять из чисел 8, 16, 17.

часть схемы, информацию - канал.

синий,желтый,красный,зеленый,оранж.

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);