Условие задачи: Написать программу, которая печатает TRUE или FALSE в зависимости от того, выполняются или нет указанные условия. Определить, есть ли среди цифр заданного трехзначного числа одинаковые.
(Язык Pascal)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Все просто, сначала разобьем число на цифры потом составим логическое выражение.
Для того чтобы решить задачу нам понадобятся следующие переменные:
Начнем мы с каркаса нашей программы
| var
number, n1, n2, n3 : res : write readln; |
Тут мы объявили все переменные и попросили пользователя ввести число. Дальше нам надо разбить число на цифры делать это мы будем с помощью операций mod и div.
Если вы не понимаете как они работают ОБЯЗАТЕЛЬНО читайте про них (тут).
Допустим у нас есть число 123, мы пишем:
| n1 := number div 100 ; // ищем первую цифру числа, если число 123, то цифра будет 1 n2 := number div 10 mod 10 ; // вторая цифра, будет уже 2 n3 := number mod 10 ; // третья цифра, будет уже 3 |
Теперь надо проверить есть ли среди них одинаковые цифры, для этого нам достаточно сравнить каждую цифру с каждой, всего тут три варианта, а результат занесем в переменную:
| res := ((n1 = n2) or (n1 = n3) or (n2 = n3)); // проверяем если одинаковые цифры |
or — значит или. Читается так n1 равно n2 или n1 равно n3 или n2 равно n3, т.е. если хоть какая-нибудь пара цифр равна, то у нас будет True.
Всё решение задачи Pascal
| var
number, n1, n2, n3 : res : write n1 := number n2 := number n3 := number res := ((n1 = n2) writeln readln; |
