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

Question

Информатика

Стефания

24 февраля, 07:32

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

+1

Ответы (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.