Question

Дано натуральное число.Определить каких цифр в данном числе больше четных или нечетных.Через Паскаль

Answer 1

Var n:longint;
    s:string;
    i, ch, neCh:integer;

begin
     readln(n);
     s:=intToStr(n);
    
     i:=1;
     while (i <= length(s)) do
     begin
          if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
          else ch:=ch+1;
           i:=i+1;
     end;
    
     if (ch > neCh) then writeln('Чётных чисел больше');
     if (ch < neCh) then writeln('Нечётных чисел больше');
     if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.

Answer 2

Определение количества четных и нечетных цифр в числе

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

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.

В этом коде мы считываем число с помощью `readln`, а затем используем цикл `while` для обработки каждой цифры числа. Если цифра является четной (то есть делится на 2 без остатка), мы увеличиваем счетчик четных цифр `evenCount` на 1. В противном случае, если цифра нечетная, мы увеличиваем счетчик нечетных цифр `oddCount` на 1. В конце программы выводим количество четных и нечетных цифр.

Пример работы программы

Введите число: 123456789
Количество четных цифр: 4
Количество нечетных цифр: 5

В данном примере число 123456789 содержит 4 четные цифры (2, 4, 6, 8) и 5 нечетных цифр (1, 3, 5, 7, 9).

Примечание: Данный код написан на языке Паскаль и может быть скомпилирован и выполнен в среде разработки, поддерживающей этот язык.