Программирование на 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;

Для Астраханцев появилась отличная возможность получить образование за рубежом. Диплом будет высоко котироваться не только в России, но и в Европе, заодно у студента будет хорошая языковая практика.