Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 1, вторая команда уменьшает число в два раза, если оно чётное, иначе происходит ошибка

(паскаль)

var n,k:integer;beginwrite('n='); readln(n);write('k='); readln(k);case k of 1: begin n:=n-1; writeln('n=',n); end; 2: if n mod 2 = 0      then begin n:=n div 2; writeln('n=',n); end     else writeln('Ошибка');  else writeln('Неверная команда');end;end.Пример:n=16k=2n=8