Question

Напишите программу, определяющую количество нечетных цифр в десятичной записи введенного числа. Язык Паскаль, помогите

Answer 1

===== PascalABC.NET =====

begin

 var n: int64;

 Read(n);

 n := Abs(n); // на случай отрицательного числа

 var k := 0;

 while n > 0 do

 begin

   var d := n mod 10;

   if Odd(d) then

     k += 1;

   n := n div 10

 end;

 Print(k)

end.

Answer 2

Конечно! Вот программа на языке Паскаль, которая определит количество нечетных цифр в десятичной записи введенного числа:

pascalCopy code
program CountOddDigits;

var
  num, digit, oddCount: Integer;

begin
  // Инициализируем счетчик нечетных цифр нулем
  oddCount := 0;

  // Запрашиваем у пользователя ввод числа
  Write('Введите число: ');
  Readln(num);

  // Проходимся по каждой цифре числа
  while num > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := num mod 10;

    // Проверяем, является ли цифра нечетной
    if digit mod 2 <> 0 then
      Inc(oddCount);

    // Убираем последнюю цифру из числа
    num := num div 10;
  end;

  // Выводим результат
  WriteLn('Количество нечетных цифр в числе: ', oddCount);
end.

Программа запрашивает у пользователя ввод числа, а затем проходится по каждой цифре числа, определяя, является ли она нечетной. Количество нечетных цифр сохраняется в переменной oddCount, которая выводится в конце программы.