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

Question

Информатика

Петя

4 января, 20:26

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

+1

Ответы (1)

Знаете ответ?

Петряша · Answer 1

Var a, b : integer;

begin

readln (a, b) ;

while a b do

begin

if (a > = b * 2) and (a mod 2 = 0) then

begin

a : = round (a / 2) ;

writeln (':2') ;

end

else

begin

a : = a - 1;

writeln (-1) ;

end

end;

end.