@Echo Off Set /P ch="Число>" Set chDop=14 Set ch01=%Ch:~0,1% Set ch02=%Ch:~1,1% Set ch03=%Ch:~2,1% Set ch04=%Ch:~3,1% Set ch05=%Ch:~4,1% Set ch06=%Ch:~5,1% Set ch07=%Ch:~6,1% Set ch08=%Ch:~7,1% Set ch09=%Ch:~8,1% Set ch10=%Ch:~9,1% Set ch11=%Ch:~10,1% Set ch12=%Ch:~11,1% Set ch13=%Ch:~12,1% Set ch14=%Ch:~13,1% Set ch15=%Ch:~14,1% Set ch16=%Ch:~15,1% Set ch17=%Ch:~16,1% Set ch18=%Ch:~17,1% Set ch19=%Ch:~18,1% Set ch20=%Ch:~19,1% Set /a chSumm=%ch01%+%Ch02%+%Ch03%+%Ch04%+%Ch05%+%Ch06%+%Ch07%+%Ch08%+%Ch09%+%Ch10% Set /a chSumm=%chSumm%+%ch11%+%Ch12%+%Ch14%+%Ch15%+%Ch16%+%Ch17%+%Ch18%+%Ch19%+%Ch20% Set /a chSumm=%chSumm%+%chDop% Set chLast=%ChSumm:~-1% Set chNew=%ch01%%ch02%%ch03%%ch04%%ch05%%ch06%%ch07%%ch08%%ch09%%ch10% Set chNew=%chNew%%ch11%%ch12%%chLast%%ch14%%ch15%%ch16%%ch17%%ch18%%ch19%%ch20% Echo New chislo:%chNew% |