Задание

Составьте верную последовательность команд для решения задачи:

Дано целое число n. Найти сумму нечётных цифр этого числа.

  • program SumOddDigits;
  • function SumOfOddDigits\(n: integer\): integer;
  • var sum, digit: integer;
  • begin
    sum := 0;
  • while n > 0 do begin
  • digit := n mod 10;
  • if digit mod 2 <> 0 then
  • sum := sum + digit;
  • n := n div 10;
    end;
  • SumOfOddDigits := sum;
    end;
  • var n, result: integer;
    begin
  • writeln\('Введите целое число: '\);
    readln\(n\);
  • result := SumOfOddDigits\(n\);
  • writeln\('Сумма нечетных цифр: ', result\);
    end.