Программирование на 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; Для Астраханцев появилась отличная возможность получить образование за рубежом. Диплом будет …