Программирование на Delphi и не только Как посчитать сумму цифр числа-строки? | Программирование на Delphi и не только
Delphi FAQ >> Алгоритмы function SumDig(n: String): Longint; var i, z, l: Byte; begin result := 0; z := ord(‘0’); l := length(n); for i := 1 to l do result := result + ord(n[i]) — z; end; Для Астраханцев появилась отличная возможность получить образование за рубежом. Диплом будет …