Дано целое число N. Определите среднее арифметическое нечётных цифр числа.

Question

Дано целое число N. Определите среднее арифметическое нечётных цифр числа.

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var n:=ReadInteger('n=');
  var k:=0;
  var s:=0;
  while n>0 do begin
    var d:=n mod 10;
    if n.IsOdd then begin s+=d; Inc(k) end;
    n:=n div 10
    end;
  if k>0 then Writeln('Cреднее значение нечетных цифр равно ',s/k)
  else Writeln('В числе нет нечетных цифр')
end.

Тестовое решение
n= 734522
Cреднее значение нечетных цифр равно 5