---

алг
нач
цел n, a, b, c
вывод " Число - "
ввод n
a := 0
нц пока n >= 100
n := n - 100
a := a + 1
кц
b := 0
нц пока n >= 10
n := n - 10
b := b + 1
кц
c := n
если a = b или a = c или b = c
то вывод " Есть одинаковые цифры "
иначе вывод " Все цифры разные "
все
кон