Составьте верную последовательность команд для решения задачи: Дано целое число 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.
Задание

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

Дано целое число 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.