Question

Напишите программу: Посчитать количество четных цифр в числе, введенном с клавиатуры. pascal

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,k):=(Abs(ReadInteger('n=')),0);
  if n=0 then k:=1
  else
    while n>0 do begin
      if (n mod 10).IsEven then k+=1;
      n:=n div 10
      end;
  Writeln('Четных цифр: ',k)
end.

Пример
n= -623451
Четных цифр: 3

Answer 2

Var
a, b, k : integer;
begin
k := 0;
write('введите число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
if b mod 2 = 0 then inc(k);
a := a div 10
Writeln ('Чётных: ', a);
end;
end.

Answer 3

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

pascalCopy code
program CountEvenDigits;

var
  number: Integer;
  countEvenDigits: Integer;

function IsEvenDigit(digit: Integer): Boolean;
begin
  IsEvenDigit := (digit mod 2) = 0;
end;

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

  countEvenDigits := 0;

  while number > 0 do
  begin
    if IsEvenDigit(number mod 10) then
      countEvenDigits := countEvenDigits + 1;

    number := number div 10;
  end;

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

Программа запросит у пользователя ввод числа, затем она будет выполнять цикл, проверяя каждую цифру числа, является ли она четной (проверка с помощью функции IsEvenDigit) и увеличивая счетчик countEvenDigits при необходимости. В конце программы будет выведено количество четных цифр в числе на экран.