Question

Посчитать четные и кратные трем цифры числа на паскале.

Answer 1

Ответ:

Во вложении.

Объяснение:

Answer 2

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

pascalCopy code
program CountEvenAndDivisibleByThree;

var
  number, digit, evenCount, divisibleByThreeCount: integer;

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

  evenCount := 0;
  divisibleByThreeCount := 0;

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

    if (digit mod 3 = 0) then
      divisibleByThreeCount := divisibleByThreeCount + 1; // Проверка на кратность трём

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

  writeln('Количество четных цифр: ', evenCount);
  writeln('Количество кратных трём цифр: ', divisibleByThreeCount);

end.

Просто скопируйте этот код в среду разработки Pascal, например, Free Pascal, и выполните его. После ввода числа программа выведет количество четных и кратных трём цифр в этом числе.