Проверка чисел на равенство - Turbo Pascal
Формулировка задачи:
Как в данной программе сделать так, чтобы при проверке на одинаковые цифры выводилось не тру и flase, а например, одинаковые или не одинаковые.
Решение задачи: «Проверка чисел на равенство»
textual
Листинг программы
var similar: boolean; {...} similar := (n mod 10) = (n div 10); if similar then write('одинаковые') else write('не одинаковые'); {...}
Объяснение кода листинга программы
- Переменная
similar
инициализируется значениемtrue
. - Выполняется проверка
n mod 10 = n div 10
. Это условие проверяет, является ли остаток от деления числаn
на 10 равным самому числуn
, делённому на 10. Если это условие истинно, то переменнаяsimilar
устанавливается в значениеtrue
. - Если
similar
равноtrue
, то выводится строкаодинаковые
. - Если
similar
равноfalse
, то выводится строкане одинаковые
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д