Определить какое количество различных цифр используется для записи данного числа - Pascal ABC
Формулировка задачи:
Дано целое трехзначное число a. Определить какое количество различных цифр используется для записи данного числа. Например для записи числа 222 используется только одна цифра "2", а в записи числа 123 - три.
Входные данные: Выходные данные:
Во входном потоке задано целое трехзначное число a.
В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):
112
Пример выходного файла (output.txt):
2
помогите кто может
Решение задачи: «Определить какое количество различных цифр используется для записи данного числа»
textual
Листинг программы
Var n,k : Word; Begin k:=0; Readln(n); If ((n mod 10)<>(n mod 100 div 10)) and ((n mod 10)<>(n div 100)) then Inc(k,2) else Inc(k); If (n mod 100 div 10)<>(n div 100) then Inc(k); Writeln(k); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д