Question

Найти количество различных цифр данного натурального числа

Answer 1

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.