Дано целое трехзначное число. Определить есть ли среди его цифр одинаковые. Формат входных данных Входной файл содержит неотрицательное трехзначное целое число. Формат выходных данных Выведите 'YES' если число содержит одинаковые цифры и 'NO' в противном случае. Примеры: Вход 123 Выход NO

Question

Роман Соловьев

Информатика

12 января, 14:16

Дано целое трехзначное число. Определить есть ли среди его цифр одинаковые. Формат входных данных Входной файл содержит неотрицательное трехзначное целое число. Формат выходных данных Выведите 'YES' если число содержит одинаковые цифры и 'NO' в противном случае. Примеры: Вход 123 Выход NO

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Артём Козлов · Answer 1

first : = x mod 10;

second : = (x div 10) mod 10;

third : = x div 100;

if (first = second) and (first = third) then writeln ('YES') else writeln ('NO');