Question

100 баллов Помогите пожалуйста!!!! Дано трехзначное число N (100 Программа должна вывести на экран количество четных цифр (0 не является ни четным, ни нечетным!).Использовать операции div и mod. Уточнение: при решении задачи использовать тип переменных integer!

Answer 1

Попробуй:

var

  a, chet, nechet : integer;

   

begin

  write('введите число: ');

  readln(a);

  while a > 0 do begin

      if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

      a := a div 10;

  end;

  writeln('четных: ', chet);

  writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

Answer 2

Конечно, я могу помочь вам написать программу на языке программирования, которая будет выполнять указанную задачу. Вот пример программы на Pascal:

pascalCopy code
program CountEvenDigits;
var
  N, digit, evenCount: integer;
begin
  evenCount := 0;
  
  write('Введите трехзначное число N: ');
  readln(N);
  
  // Проверяем каждую цифру числа N
  while N > 0 do
  begin
    digit := N mod 10; // Получаем последнюю цифру числа
    if digit mod 2 = 0 then
      evenCount := evenCount + 1; // Если цифра четная, увеличиваем счетчик
    
    N := N div 10; // Удаляем последнюю цифру из числа
  end;
  
  writeln('Количество четных цифр в числе: ', evenCount);
end.

Эта программа запрашивает у пользователя трехзначное число N, а затем с помощью операций div и mod проверяет каждую цифру числа и увеличивает счетчик evenCount, если цифра четная. Наконец, программа выводит количество четных цифр на экран.