Question

Дана строка, в которой нет русских букв.
Написать подпрограмму для нахождения суммы нечетных цифр в строке.
Использовать заголовок:
function CalcSum(s: string): integer;
На Паскаль АВС, пожалуйста

Answer 1

var

 s:string;

function CalsSum(s:string):integer;

 var

   i,r,sum,rr:integer;

 begin

   sum:=0;

   for i:=1 to length(s) do

     if (ord(s[i]) > 48) and (ord(s[i]) <= 57)

       and (ord(s[i]) mod 2 = 1) then

         begin

           val(s[i],rr,r);

           sum:=sum+rr;

         end;

   CalsSum:=sum;

 end;

begin

 readln(s);

 writeln(CalsSum(s));

end.