[BoRoV]

Сообщение от salzer

имеется подобная задача.
дано натуральное число. найти среднее арифметическое значение нечетных чифр числа.

Код:

function Average(InputVal: Integer): Real;
var
  Sum, Temp, Count: integer;
begin
  Sum := 0;
  Count := 0;
  repeat
    Temp := InputVal mod 10;
    InputVal := InputVal div 10;
    if ((Temp mod 2) <> 0) then
    begin
      Sum := Sum + Temp;
      Inc(Count);
    end;
  until (InputVal = 0);
  Result := RoundTo(Sum / Count, -2);
end;