Question

Посчитать сколько нечетных цифр в n значном числе! (паскаль)

Answer 1

Program zadanie;
var i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
if(i mod 2)=1 then a:=a + 1;
end;
writeln(a);
readln;
end.
если я правильно понял то так,если нет,пиши переделаю!

Answer 2

Чтобы посчитать количество нечетных цифр в n-значном числе, мы можем использовать формулу сочетания из теории чисел.

В числе может быть 0 или более нечетных цифр. Поэтому мы пройдемся по всем цифрам числа и будем считать количество нечетных цифр с помощью счетчика.

Пример решения на языке Паскаль:

function countOddDigits(n: integer): integer;
var
  count, digit: integer;
begin
  count := 0;
  while n > 0 do
  begin
    digit := n mod 10;  // получаем последнюю цифру числа
    if digit mod 2 = 1 then  // проверяем, является ли цифра нечетной
      count := count + 1;  // увеличиваем счетчик
    n := n div 10;  // удаляем последнюю цифру числа
  end;
  countOddDigits := count;  // возвращаем количество нечетных цифр
end;

В этом коде мы используем цикл while, чтобы пройтись по всем цифрам числа. Мы получаем последнюю цифру числа с помощью операции модуло (остаток от деления на 10) и используем операцию деления на 10 (целочисленное деление) для удаления последней цифры. Проверяем, является ли цифра нечетной, с помощью операции mod (остаток от деления на 2), и увеличиваем счетчик, если это так.

Пример использования функции:

var
  number, oddCount: integer;
begin
  writeln('Введите число:');
  readln(number);
  oddCount := countOddDigits(number);
  writeln('Количество нечетных цифр:', oddCount);
end.

В этом примере пользователь вводит число, и функция countOddDigits вызывается для подсчета количества нечетных цифр. Результат выводится на экран.