Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
