§ . № Одинаковые цифры числа
Составьте алгоритм для определения, есть ли среди цифр заданного целого трёхзначного числа одинаковые.
Решение
Для отрицательного трёхзначного числа знак минус не является цифрой, поэтому сначала возьмём модуль:
ввести n
m := |n|
a := m div
b := (m div ) mod
c := m mod
если (a = b) или (a = c) или (b = c)
то вывести «одинаковые цифры есть»
иначе вывести «одинаковых цифр нет»
все
Связка ИЛИ верна, если совпала хотя бы одна пара. Например, при
Ответ
Выделить сотни a, десятки b и единицы c; если
Помогло?
