Question

у исполнителя делитель две команды которым присвоены номера:
раздели на 2
вычти 3

Answer 1

var a,b:integer;
begin
readln(a,b);
while a<>b do begin
if (a mod 2=0)and(b*2<=a)then begin
a:=a div 2;
writeln(':2');
end
else
begin
a:=a-2;
writeln('-2'); end;
end;
end.