Question

Дано натуральное число. определить какое из цифр в этом числе чаще 0 или 9

Answer 1

Var s: string;
    i, z, n, a: integer;
begin
     readln(a);
     s := floattostr(a);
     for i := 1 to length(s) do
     begin
         if (s[i] = '0') then inc(z);
         if (s[i] = '9') then inc(n);
     end;
     writeln(z, ' ', n);
     if (z > n) then writeln('"0" > "9"');
     if (z < n) then writeln('"0" < "9"');
     if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
        else if (z = n) then writeln('"0" = "9" = ', z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)

Answer 2

Для решения этой задачи нужно проанализировать каждую цифру в данном натуральном числе и подсчитать количество вхождений цифры 0 и 9. Затем можно сравнить эти два значения и определить, какая цифра встречается чаще.

Вот пример алгоритма на языке Python:

pythonCopy code
def count_digits(n):
    count_0 = 0
    count_9 = 0

    while n > 0:
        digit = n % 10
        if digit == 0:
            count_0 += 1
        elif digit == 9:
            count_9 += 1
        n //= 10

    if count_0 > count_9:
        return 0
    elif count_9 > count_0:
        return 9
    else:
        return None  # Если количество цифр 0 и 9 равное, возвращаем None

# Пример использования
number = 1234090909
result = count_digits(number)

if result is None:
    print("Цифры 0 и 9 встречаются одинаковое количество раз.")
else:
    print(f"Цифра {result} встречается чаще.")

В данном примере мы считываем число number и вызываем функцию count_digits для подсчета количества цифр 0 и 9. Затем в зависимости от результата выводим сообщение о том, какая цифра встречается чаще или сообщаем, что обе цифры встречаются одинаковое количество раз.