
Дано шестизначное целое число N, в десятичной записи которого нет нулей. Определить, сколько раз
встречается в числе цифра 2. Найти наибольшую четную цифру числа. Если в числе нет четных цифр, то сообщить об этом.

Ответы на вопрос

var k,max,a:integer;
n:int64;
begin
max:=0; k:=0;
readln(n);
while n <> 0 do begin
a:=n mod 10;
if a=2 then k:=k+1;
if (a mod 2 = 0) and (a>max) then max:=a;
n:=n div 10;
end;
writeln('Количество двоек: ',k);
if max = 0 then writeln('Четных чисел нет')
else writeln('Наибольшее четное число: ', max)
end.



Давайте разберемся с каждой частью задачи по порядку.
1. Определить, сколько раз встречается цифра 2: Пройдемся по каждой цифре числа и подсчитаем количество вхождений цифры 2.
2. Найти наибольшую четную цифру числа: Также пройдемся по каждой цифре числа и найдем наибольшую четную цифру. Если не будет четных цифр, запомним этот факт для следующего шага.
3. Если в числе нет четных цифр, сообщить об этом: Если на предыдущем шаге мы не нашли ни одной четной цифры, сообщим, что в числе нет четных цифр.
Давайте напишем код на Python для решения этой задачи:
```python def analyze_number(N): # Преобразуем число в строку для удобства обращения к каждой цифре str_N = str(N) # Инициализируем переменные для подсчета вхождений цифры 2 и поиска наибольшей четной цифры count_of_2 = 0 max_even_digit = -1 # Используем -1 как маркер отсутствия четных цифр # Проходимся по каждой цифре числа for digit_str in str_N: digit = int(digit_str) # Подсчет вхождений цифры 2 if digit == 2: count_of_2 += 1 # Поиск наибольшей четной цифры if digit % 2 == 0: max_even_digit = max(max_even_digit, digit) # Выводим результаты print(f"Цифра 2 встречается {count_of_2} раз(а).") if max_even_digit == -1: print("В числе нет четных цифр.") else: print(f"Наибольшая четная цифра: {max_even_digit}")
# Пример использования number = 236951 analyze_number(number) ```
Замените значение переменной `number` на ваше шестизначное число, и код выведет результаты анализа.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili