Какой числовой эквивалент имеет цифра 3 в числах: 3789, 3650, 13, 39?

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

значение формулы срзнач=(d1: d4) равно 5

  можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1,  в ней значение 5. 15+5=20, а среднее 20: 4=5

640х250х4 = 640000 бит, что соответствует примерно 80 кбайтам. последняя 4 берется из необходимого количества битов для кодирования 16 цветов.