Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
var a,b:integer;
begin
readln(a,b);
while a<>b do begin
if (a mod 2=0)and(b*2<=a)then begin<br> a:=a div 2;
writeln(':2');
end
else
begin
a:=a-2;
writeln('-2'); end;
end;
end.
begin
readln(a,b);
while a<>b do begin
if (a mod 2=0)and(b*2<=a)then begin<br> a:=a div 2;
writeln(':2');
end
else
begin
a:=a-2;
writeln('-2'); end;
end;
end.