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.

Answer 2

Для нахождения суммы нечетных цифр в строке на языке Pascal ABC, вы можете использовать следующую подпрограмму, определенную с заголовком "function CalcSum(s: string): integer;". Эта функция будет принимать строку и возвращать целое число - сумму нечетных цифр.

function CalcSum(s: string): integer;
var
  i: integer;
  sum: integer;
begin
  sum := 0; // Инициализируем сумму

// Проходим по каждому символу в строке
  for i := 1 to Length(s) do
  begin
    // Проверяем, является ли символ цифрой и нечетным числом
    if (s[i] >= '0') and (s[i] <= '9') and (Ord(s[i]) mod 2 = 1) then
    begin
      // Преобразуем символ в целое число и добавляем его к сумме
      sum := sum + StrToInt(s[i]);
    end;
  end;

Result := sum; // Возвращаем сумму нечетных цифр
end;

Вы можете вызвать эту функцию, передав строку в качестве аргумента, и она вернет сумму нечетных цифр в этой строке. Например:

var
  inputString: string;
  sumOfOddDigits: integer;
begin
  inputString := '12345abc6789';
  sumOfOddDigits := CalcSum(inputString);
  writeln('Сумма нечетных цифр в строке: ', sumOfOddDigits);
end.

Этот код должен вывести "Сумма нечетных цифр в строке: 16" для строки "12345abc6789".