@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%
|
А то делать всё через эксель, и каждый раз вручную переписывать туда сюда, по одной цифорке просто ужасно.
ns