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

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

Задать свой вопрос
1 ответ
var a,b:integer;
begin
readln(a,b);
while alt;gt;b do begin
if (a mod 2=0)and(b*2lt;=a)then begin
a:=a div 2;
writeln(':2');
end
else
begin
a:=a-2;
writeln('-2'); end;
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт