Не знаю, зачем все так усложнять, по-моему нужно у одной хозяйки вычесть 1 л (5-1) молока и отдать его второй хозяйке (3+1), у них как раз станет по 4 л. Не знаю зачем тут еще 2-литровый бидон
16 Кбайт = 16*1024 байт = 16*1024*8 бит
Память для одного пикселя: 16*1024*8 / (128*128) = 8 бит
Число цветов = 2^8 = 256
Вероятность, того, что достанут белый шар= 40/50= 4/5= 4:5
Вероятность, того, что достанут чёрный шар= 10/50= 1:5
Или 4,или 1
но больше всего 4
VAR
n,max:LongInt;
BEGIN
WriteLn('Введите трехзначное число:');
ReadLn(n);
max:=0;
Repeat
If (n mod 100)>max then max:=(n mod 100);
n:=n div 100;
Until n=0;
WriteLn('Самое большое число в трехзначном числе: ',max);
Readln;
END.