Найти количество различных цифр данного натурального числа
Найти количество различных цифр данного натурального числа
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i,ans:integer;
s:string;
u:set of char;
begin
read(s);
for i:=1 to length(s) do
if not(s[i] in u) then begin
inc(ans);
u:=u+[s[i]];
end;
writeln(ans);
end.
Не нашли ответ?
Похожие вопросы