Программа для машины Поста - в прилагаемом файле.
Программа выполнена в тренажере К Полякова.
а) если уменьшаемое равно вычитаемому, то на ленте останется одна метка (что соответствует значению 0);
б) если уменьшаемое меньше вычитаемого, то будет ошибка "Повторное стирание метки".
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,100).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Результат</u>
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.
Следует четырежды повторить следующую группу действий:
1) закатить в нишу ближайший к ней черный шарик
2) перекатить все шарики в левую часть желоба
3) перекатить все шарики в правую часть ниши
4) перекатить все шарики в правую часть ниши
5) выкатить черный шарик из желоба