Представьте десятичные числа в виде суммы степеней десятки: 328 2346 9872,123 10011

3*10в степени 2+2*10 в ст.1+8*10 в ст.0 2*10 в ст3+3*10 в ст.2+4*10 в ст.1 +6*10 в ст.0 9*10 в ст. 3+ 8*10в ст.2+7*10 в ст.1+2* 10 в ст.0+1*10 в ст. -1+2*10 в ст.-2+3*10 в ст.-3 1*10 в ст.4+0*10 в ст.3+0*10 вст.2+1 *10 в ст.1+1*10 в  ст. 0

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================

3: 3+3+3=7

3+3: 3+3=7

================

3·3–3: 3=8

================

3·3·3: 3=9

3: 3·3·3=9

3·3+3-3=9

3+3·3-3=9

================

3: 3+3·3=10

3·3+3: 3=10