pajautā! - Komentāri

Nu man dzimtā valoda ir paskāls, no C maz ko jēdzu tāpēc arī pašam bij interesanti parakties tālāk.
A paskālā es to būtu darījis tā:

var s :string;
code, idx, sum: integer
alldigits : boolean;
BEGIN
alldigits := true;
sum := 0;
for idx := 1 to length(s) do begin
code := ord(s[idx]);
if (code < 48) or (code > 57) //ja nav cipars
then break //tad pārtraucam ciklu
else sum := sum + (code-48)
end; //for
END.