Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды:...

Question

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

(паскаль)

Answer 1

Var n,k:integer;
begin
write('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=16
k=2
n=8