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

Question

Информатика

Домитилла

27 января, 12:34

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

+3

Ответы (1)

Знаете ответ на вопрос?

Евграф · 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.