Как могут быть расшифрованы двоичные цепочки 11010010; 11001110; 11001010. а) калькулятором б) текстовым редактором в) графическим редактором?

В)!

программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.

var i,a,b,c,d: integer;

begin

for i: =1000 to 9999 do begin

a: =i mod 10;  

b: =(i div 10) mod 10;  

c: =(i div 100) mod 10;

d: =(i div 1000) mod 10;

      if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);

      if (a< > b) and (a< > c) and (a< > d) and (b< > c) and (b< > d) and (c< > d) then writeln('ne odinakovie cifri - ',i);

end;

(сумма любых двух цифр числа всегда  ≤ 18) 1414 - суммы цифр могут быть только 14 и 14  148   -       только 14 и 8                                        145   -         только 14 и 5                                                                           214     не может быть такого результата, так как суммы цифр   могут быть         только  2 и   14, но записаны они в порядке возрастания. 515   -    5 и 15 - записаны в порядке возрастания, не соответ. условию. 814 -   8 и 14 - не соотв. условию 114 -   11 и 4   (но может быть и 1 и 14) , в принципе - такой результат возможен     ответ   5