Какое десятичное число нужно поставить в пустое поле, чтобы стало истинным выражение: 1110001012< ответ 10< 1c716

111000101(2) = 453(10) = 1c6(16)

ответ: 454(10) = 111000110(2) = 1c6(16)

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.