Question

Найдите количество чётных цифр заданного числапо программе pascal.

Answer 1

var
k:integer;

a,n:longint;
begin
write ('A =');readln(a);
n:=a; 
while n div 10 <> 0 do begin
n:=a; 
if odd(n mod 10)=false then k:=k+1;
a:=a div 10;
end;

writeln (k);
readln;
end. 

Answer 2

Конечно, вот пример программы на Pascal, которая находит количество чётных цифр в заданном числе:

program CountEvenDigits;

var
  number, digit, evenDigitsCount: integer;

begin
  // Вводим число
  write('Введите число: ');
  readln(number);

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

// Перебираем цифры числа
  while number <> 0 do
  begin
    // Получаем последнюю цифру числа
    digit := number mod 10;

// Проверяем, является ли цифра четной
    if digit mod 2 = 0 then
      evenDigitsCount := evenDigitsCount + 1;

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

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

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