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

Answer 2

Я могу помочь вам с решением задачи. Дано целое число N. Определите среднее арифметическое нечётных цифр числа. Вот подробный алгоритм решения:

- Пусть S - сумма нечётных цифр числа, а K - количество нечётных цифр числа. Изначально S = 0 и K = 0. - Пока N > 0, повторяем следующие шаги: - Находим последнюю цифру числа N как D = N % 10, где % - операция взятия остатка от деления. - Если D - нечётная цифра, то увеличиваем S на D и K на 1. - Делим N на 10, отбрасывая последнюю цифру. - Если K > 0, то среднее арифметическое нечётных цифр числа равно S / K. Иначе, среднее арифметическое не определено, так как в числе нет нечётных цифр.

Например, если N = 12345, то S = 1 + 3 + 5 = 9, K = 3, и среднее арифметическое нечётных цифр числа равно 9 / 3 = 3. Если N = 2468, то S = 0, K = 0, и среднее арифметическое не определено.

Надеюсь, это поможет вам понять решение задачи.