Maijs. 2., 2006 | 11:52 pm
No:: petro
vai precīzāk tā:
function SumDigits (s:String):integer;
(* ja kāds simbols nav cipars tad atgriežam -1
citādi rezultāts ir visu ciparu summa *)
var code, idx: integer
begin
return := 0;
for idx := 1 to length(s) do begin
code := ord(s[idx]);
if (code < 48) or (code >57) //ja nav cipars
then begin
return := -1;
break //tad pārtraucam ciklu
end
else return := return + (code-48)
end; //for
end;