В предыдущем вопросе я написала решение.
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
<span>end.</span>
1. исходное число х
2.х+10
3. если (х+10)>20 то (х+10)-3
если (х+10)<20 то (х+10)+3
4.((х+10)+-3)+2
5. ответ:
например
1. число 5
2. 5+10=15
3.15+3=18
4.18+2=20
5. ответ 20
ИЛИ
1. число 15
2. 15+10=25
3. 25-3=22
4.22+2=24
5. ответ:24
5А в 16= 5*16^1+10*16^0= 90 в десятой степени снизу.