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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.