Question

Дано натуральное число.Определить каких цифр в данном числе больше четных или нечетных.Через Паскаль ЛЕГКИЙ ВАРИАНД С While

Answer 1

блин сейчас посмотрю

Answer 2

Для решения данной задачи через Паскаль с использованием цикла while можно использовать следующий алгоритм:

1. Инициализировать переменные countOdd и countEven, равные нулю. Они будут счетчиками нечетных и четных цифр соответственно. 2. Ввести натуральное число. 3. Проверить каждую цифру числа по очереди: а. Получить последнюю цифру числа с помощью операции остатка от деления на 10. б. Если остаток от деления на 2 равен нулю, увеличить значение переменной countEven на единицу. в. Иначе, увеличить значение переменной countOdd на единицу. г. Уменьшить число на его последнюю цифру, разделив его на 10. д. Повторять шаги 3а-3г, пока число не станет равным нулю. 4. Сравнить значения переменных countOdd и countEven. а. Если countOdd больше countEven, вывести "Больше нечетных цифр". б. Иначе, вывести "Больше четных цифр".

Ниже представлен код на Паскаль, реализующий данный алгоритм:

program CountOddEvenDigits;
var
  number, countOdd, countEven: integer;
begin
  countOdd := 0;
  countEven := 0;
  
  write('Введите натуральное число: ');
  readln(number);
  
  while number <> 0 do
  begin
    if number mod 2 = 0 then
      countEven := countEven + 1
    else
      countOdd := countOdd + 1;
    
    number := number div 10;
  end;
  
  if countOdd > countEven then
    writeln('Больше нечетных цифр')
  else if countOdd < countEven then
    writeln('Больше четных цифр')
  else
    writeln('Одинаковое количество четных и нечетных цифр');
    
  readln;
end.

После запуска программы пользователь будет приглашен ввести натуральное число. После ввода числа программа подсчитает количество четных и нечетных цифр и выведет результат на экран.