<span>Кодированием числовой информации:называется совокупность приемов наименования и записи чисел.</span>
<span>Целые числа, т.к. считаешь количество вхождений</span>
X = 5; y = 15.
Y = 20;
X = 0.
T = 20;
X = 0 + 20 + 20 = 40;
Y = 40 + 20 = 60.
Ответ: 3.
Не самый рациональный метод решения, но как говорится чем смог тем помог)
var a,b,c,x,kc,kn,k1,k2:integer;
<span>begin </span>
<span>kc:=1; </span>
<span>kn:=1; </span>
<span>k1:=0; </span>
<span>k2:=0; </span>
<span>a:=0; </span>
<span>b:=0; </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>while x>0 do begin </span>
<span>c:=x mod 10; </span>
<span>if c mod 2=0 then begin </span>
<span>inc(k1); </span>
<span>a:=a+c*kc; </span>
<span>kc:=kc*10; </span>
<span>end; </span>
<span>if c mod 2<>0 then begin </span>
<span>inc(k2); </span>
<span>b:=b+c*kn; </span>
<span>kn:=kn*10; </span>
<span>end; </span>
<span>x:=x div 10; </span>
<span>end; </span>
<span>if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); </span>
<span>writeln(a,' ', b); </span>
<span>end. </span>