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