Если выводит 1 значит вычитание, если 2 - деление.
var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
<span>Возможно это будет так)
А З У Б Д А З У У Д Д </span>
там надо из 100 десять раз вычесть 5
получится 50
<span> Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.
надеюсь правильно поняла вопрос</span><span />