Question

С клавиатуры вводится целое положительное число. Определить, сколько в этом числе чётных цифр.(PASCAL)

Answer 1

Var n,m,k:integer;
begin
write('n='); readln(n);
k:=0;
while n>0 do
  begin  m:=n mod 10;
  if m mod 2 = 0 then k:=k+1;
  n:=n div 10;
 end;
writeln('k=',k);
end.

Пример:
n=123456
k=3

Answer 2

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

pascalCopy code
program CountEvenDigits;

var
  num, digit, evenCount: integer;

begin
  writeln('Введите целое положительное число: ');
  readln(num);

  evenCount := 0;

  while num > 0 do
  begin
    digit := num mod 10; // Получаем последнюю цифру числа
    if digit mod 2 = 0 then
      evenCount := evenCount + 1; // Если цифра четная, увеличиваем счетчик

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

  writeln('Количество четных цифр в числе: ', evenCount);
end.

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