Function NOD(a,b : Longint) : Longint;
Begin
If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
Begin
Writeln(NOD(9,6));
End.
Программа для машины Поста - в прилагаемом файле.
Программа выполнена в тренажере К Полякова.
а) если уменьшаемое равно вычитаемому, то на ленте останется одна метка (что соответствует значению 0);
б) если уменьшаемое меньше вычитаемого, то будет ошибка "Повторное стирание метки".
Если не вдаваться в сложные подробности, то в общем это количество бит оперативной памяти, которые процессор обрабатывает за 1 операцию.
Петя Герасимов, Миша Иванов, Володя Семёнов
К = 0, 1 *3 = 3, 3>10 нет
к = 1, 2 * 3 = 6, 6>10 нет
к = 3, 3 * 3 = 9, 9>10 нет
к = 4, 4 *3 12, 12>10 да
Ответ: к = 4.