Определить, что все цифры числа различны - Pascal ABC
Формулировка задачи:
Решение задачи: «Определить, что все цифры числа различны»
textual
Листинг программы
Program razlichnie; var a,B,c,d:integer; var w:boolean; begin write('Введите трехзначное число ->'); readln(a); b:=(a div 100); C:=(a div 10 mod 10 ); D:=(A MOD 10); IF (b<>c)and(c<>d)and(b<>d) then w:=true; if w=TRUE then writeln('Все цифры данного числа различны') else writeln('не все'); write (w); // на всякий случай end.
Объяснение кода листинга программы
- В программе объявлены четыре переменные: a, b, c и d типа integer.
- Затем происходит чтение трехзначного числа от пользователя с помощью функции readln.
- Переменная b вычисляется как частное от деления введенного числа на 100.
- Переменная C вычисляется как остаток от деления введенного числа на 10, что позволяет получить последнюю цифру числа.
- Переменная D вычисляется как остаток от деления введенного числа на 10, что позволяет получить последнюю цифру числа.
- Затем проверяется условие (b <> c) and (c <> d) and (b <> d), которое проверяет, что все цифры числа различны.
- Если условие истинно, то переменная w устанавливается в значение true, что означает, что все цифры числа различны.
- В противном случае, если условие ложно, то выводится сообщение
не все
. - В конце программы выводится значение переменной w с помощью функции write.