26.05.2020, 12:20
общий
это ответ
Здравствуйте, mortex.official!
[code lang=pascal]procedure TForm1.Button1Click(Sender: TObject);
var n,a,k:integer;
b:set of byte;
begin
n:=strtoint(Edit1.Text);//вводим натуральное число
b:=[];//множество пока пустое
k:=0;
repeat
a:=n mod 10;//отделяем по одной цифре с конца
if not (a in b)then//если ее нет еще в множестве
begin
include(b,a);//вставляем
k:=k+1;//считаем
end;
n:=n div 10;//берем число без последней цифры и все повторяем
until n=0;
Label1.Caption:='Количество разных цифр в числе='+inttostr(k);
end;[/code]