Question

С клавиатуры вводится целое неотрицательные число определить и вывести количество чётных и нечётных цифр числа через Паскаль​

Answer 1

Ответ:

program k;

var a,k1,k2:integer;

begin

read(a);

k1:=0;

k2:=0;

while a>0 do

begin

if a mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

a:=a div 10

end;

write(k2,' ',k1)

end.

Answer 2

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

pascalCopy code
program CountEvenOddDigits;
var
  number, digit, evenCount, oddCount: integer;
begin
  evenCount := 0;
  oddCount := 0;
  
  write('Введите целое неотрицательное число: ');
  readln(number);
  
  while number > 0 do
  begin
    digit := number mod 10;
    if digit mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
    
    number := number div 10;
  end;
  
  writeln('Количество чётных цифр: ', evenCount);
  writeln('Количество нечётных цифр: ', oddCount);
end.

Этот код сначала запрашивает у пользователя ввод целого неотрицательного числа. Затем он анализирует каждую цифру в числе, определяет, является ли она чётной или нечётной, и увеличивает соответствующий счетчик. В конце программы выводятся результаты подсчёта чётных и нечётных цифр.

Answer 3

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

pascalCopy code
program CountEvenOddDigits;
var
  number, digit, evenCount, oddCount: Integer;
begin
  evenCount := 0;
  oddCount := 0;

  Write('Введите целое неотрицательное число: ');
  Readln(number);

  while number > 0 do
  begin
    digit := number mod 10;  // Получаем последнюю цифру числа
    if digit mod 2 = 0 then
      evenCount := evenCount + 1  // Если цифра четная, увеличиваем счетчик четных цифр
    else
      oddCount := oddCount + 1;   // Если цифра нечетная, увеличиваем счетчик нечетных цифр
    number := number div 10;      // Убираем последнюю цифру из числа
  end;

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

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