9. Какое значение принимает параметр Sender в процедуре рrосеdurе
TForm1.EditiClick(Sender: TObject)?
a) Edit1
b) не принимает значение

program raf105;

var  

 white,blue,red,x,y,z: integer;

 w,b,r: boolean;

begin

writeln('Ввод:');

readln(white, blue, red, x, y, z);

repeat

 w:= false;

 b:= false;

 r:= false;

 if white >= x

   then begin

     white-= x;

     blue+= 1;

   end

   else w:= true;

 if blue >= y

   then begin

     blue-= y;

     red+= 1;

   end

   else b:= true;

 if red >= z

   then begin

     red-= z;

     white+= 1;

   end

   else r:= true;

until w and b and r;

writeln('Вывод:');

writeln(white,' ', blue,' ', red);

end.

Проще всего решать такие задачи, приведя всё к одной системе, проще всего 16ричной(легче переводить), хотя можно и в10ричную, но сложней.

Итак

a = 91h

b = 352(8) = 011 101 010b =  1110 1010b =EAh

ч1 = 1000 1001b = 89h

ч2 = 1000 1100b = 8Ch

ч3 = 1101 0111b = D7h

ч4 = 1111 1000b = F8h

Ну и всё, теперь ясно видно, что заданному условию удовлетворяет только ч3.

Потому, что

если расположить все числа в поряде возрастания, то получим

89h   8Ch   91h   D7h   EAh   F8h

 ч1      ч2      а        ч3      b        ч4

Вот теперь очевидно.