Как поставить данное условие в pascalABC.NET двоичная запись числа не заканчивается на 000.

Вот пример кода программы:

var a:integer;

begin

 a := 101010100;

 if ((a mod 1000 <> 0) or (a mod 10000 = 0)) then  

   writeln('Не заканчивается на 000')

 else

   writeln('Заканчивается на 000');

end.

1) Допустим, бумагу мы сложим в бак 3. Это будет 83 + 58 = 141.
Тогда в бак 2 надо сложить стекло или жесть.

1) а) Допустим, мы в бак 2 сложили стекло. Это будет 52 + 85 = 137.
Тогда в бак 1 кладем жесть. Это будет 95 + 75 = 170.
Всего 141 + 137 + 170 = 448 перемещений.

1) б) Допустим, мы в бак 2 сложили жесть. Это будет 64 + 75 = 139.
Тогда в бак 1 кладем стекло. Это будет 98 + 85 = 183.
Всего 141 + 139 + 183 = 463 > 448.

2) Допустим, бумагу мы сложили в бак 2. Это опять 83 + 58 = 141.
2) а) Кладем в бак 3 стекло. Это будет 98 + 52 = 150.
Тогда в бак 1 кладем жесть. Это будет 95 + 75 = 170.
Всего 141 + 150 + 170 = 461 > 448.

2) б) Кладем стекло в бак 1. Это будет 98 + 85 = 183.
Тогда в бак 3 кладем жесть. 64 + 95 = 159
Всего 141 + 183 + 159 = 483 > 448.

3) Положим бумагу в бак 1. Это будет 83 + 83 = 166.
3) а) Положим стекло в бак 2. Это будет 52 + 85 = 137.
Тогда жесть пойдет в бак 3. 64 + 95 = 159.
Всего 166 + 137 + 159 = 465 > 448.

3) б) Положим стекло в бак 3. Это будет 52 + 98 = 150.
Тогда жесть пойдет в бак 2. Это будет 64 + 75 = 139.
Всего 166 + 150 + 139 = 455 > 448.

Я рассмотрел все 6 вариантов разложить 3 мусора по 3 бакам.
ответ: минимальное количество перемещений равно 448.

использовать Чертежник

алг  

нач

поднять перо

сместиться в точку (1,0)

опустить перо  

сместиться в точку (1,1)

сместиться в точку (2,1)

сместиться в точку (2,0)

сместиться в точку (1,0)

поднять перо

сместиться в точку (2,1)

опустить перо

сместиться в точку (2,2)

сместиться в точку (3,2)

сместиться в точку (3,0)

сместиться в точку (2,0)

поднять перо  

сместиться в точку (3,2)

опустить перо

сместиться в точку (3,3)

сместиться в точку (4,3)

сместиться в точку (4,0)

сместиться в точку (3,0)

поднять перо

сместиться в точку (4,2)

опустить перо

сместиться в точку (5,2)

сместиться в точку (5,0)

сместиться в точку (4,0)

поднять перо

сместиться в точку (5,1)

опустить перо

сместиться в точку (6,1)

сместиться в точку (6,0)

сместиться в точку (5,0)

поднять перо

сместиться в точку (6,1)

опустить перо

сместиться в точку (7,1)

сместиться в точку (7,0)

сместиться в точку (6,0)

поднять перо

сместиться в точку (7,1)

опустить перо

сместиться в точку (7,2)

сместиться в точку (8,2)

сместиться в точку (8,0)

сместиться в точку (7,0)

поднять перо

сместиться в точку (8,2)

опустить перо

сместиться в точку (8,3)

сместиться в точку (9,3)

сместиться в точку (9,0)

сместиться в точку (8,0)

поднять перо

сместиться в точку (9,2)

опустить перо

сместиться в точку (10,2)

сместиться в точку (10,0)

сместиться в точку (9,0)

поднять перо

сместиться в точку (10,1)

опустить перо

сместиться в точку (11,1)

сместиться в точку (11,0)

сместиться в точку (10,0)  

поднять перо  

сместиться в точку (11,1)

опустить перо

сместиться в точку (12,1)

сместиться в точку (12,0)

сместиться в точку (11,0)

поднять перо  

сместиться в точку (12,1)

опустить перо

сместиться в точку (12,2)

сместиться в точку (13,2)

сместиться в точку (13,0)

сместиться в точку (12,0)

поднять перо

сместиться в точку (13,2)

опустить перо

сместиться в точку (13,3)

сместиться в точку (14,3)

сместиться в точку (14,0)

сместиться в точку (13,0)

поднять перо

сместиться в точку (14,2)

опустить перо

сместиться в точку (15,2)

сместиться в точку (15,0)

сместиться в точку (14,0)

поднять перо

сместиться в точку (15,1)

опустить перо

сместиться в точку (16,1)

сместиться в точку (16,0)

сместиться в точку (15,0)

кон

Объяснение: