Дана строка, в которой нет русских букв.
Написать подпрограмму для нахождения суммы нечетных цифр в строке.
Использовать заголовок:
function CalcSum(s: string): integer;
На Паскаль АВС, пожалуйста
Написать подпрограмму для нахождения суммы нечетных цифр в строке.
Использовать заголовок:
function CalcSum(s: string): integer;
На Паскаль АВС, пожалуйста
More Questions From This User See All
Answers & Comments
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.