Система команд исполнителя вычислитель состоит из двух команд: 1 – прибавить 2 2 – умножить на 3. а) составьте для вычислителя алгоритм получения из числа 2 числа 30. алгоритм должен включать только команды 1 и 2, и состоять не более чем из 4 команд.

2 * 3 = 6 (2)

6 + 2 = 8 (1)

8 + 2 = 10 (1)

10 * 3 = 30 (2)

Объяснение:

При переводе числа из десятичной системы счисления в другую нужно поделить число на основание системы счисления, в которую переводишь, и записать остаток. Результат деления снова поделить на  основание системы счисления, в которую переводишь, и записать остаток. Продолжать до тех пор, пока результат не станет меньше основания с. сч., в которую переводишь. Тогда нужго записать последнее оставшееся число (то, которое меньше основания...) и все остатки в обратном порядке. Получившаяся последовательность чисел — ответ.

Решение примеров из во см. в приложенном фото.

Var

День,месяц:byte;

Begin

Write('№ дня = ');ReadLn(День)

Var C: = 365 - День

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End.