Зубр - I
Зубр & Тур - II
Тур - III
Решение: I+III - II (18000+12000)-5000=25000
N - любое число
Движение:
1. Идти n шагов
2. Повернуться на n градусов вправо
3. Повернуться на n градусов влево
4. Повернуть в направление n
5. Повернуться к <какому-либо объекту>
6. Изменить х на n
7. Изменить y на n
8. Установить x на n
9. Установить y на n
10. Идти в x: n y: n
11. Плыть n секунд в точку x: n y: n
12. Идти в <какой-либо объект>
13. Если край, оттолкнуться
Внешность:
14. Сказать "<что-либо>"
15. Думать "<что-либо>"
16. Говорить "<что-либо>" в течение n секунд
17. Думать "<что-либо>" в течение n секунд
18. Показаться
19. Спрятаться
Перо:
20. Опустить перо
21. Поднять перо
22. Установить цвет пера
p.s. выбрал только некоторые, самые подходящие
Управляющий объект- Полиционер
Объект управления- машины
Цель управления- Не должна произойти авария
Управляющее воздействие- графическое сообщение
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
В данной кодировке 40 символов (каждый пробел, тире и точка считаются за символ)
40 * 2 = 80 битов