Добрый вечер. Помогите пожалуйста!
Описать функцию sum без параметров, которая находит сумму цифр в строке.

function sum:integer;
var
  i : byte;
begin
  sum := 0:
  for i := 1 to length(s) do
    if s[i] in [0..9] then
      inc(sum,strtoint(s[i]);
end;
 

Условие в цикле можно заменить на вот такое:

    if s[i] in [1..9] then

- и делать немного меньше лишнего ))

3 минуты искал разницу..

спасибо вам!