В предыдущем вопросе я написала решение. 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); end.
Скорее всего всё можно было проще сделать, но я только так понимаю, так что вот. Программа проверена и работает. 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); end.
он есть так что да)
Объяснение:
так же надо было написать да?