[Alinca3303]

помогите плиз написать программу=)буду оч благодарна...

Определить количество цифр в натуральном числе N

[dr. F.I.N.]

Не учитывая повтор цифр:

Код:

1	Result := Length(IntToStr(N)); - где N - входное число

Если учитывать повтореняющиеся цифры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   s: set of char; i: Integer; begin   s := [];   Result := 0;   for i := 1 to Length(IntToStr(N)) do   if not (IntToStr(N)[i] in S) then   begin     Inc(Result);     s := s + [IntToStr(N)[i]];   end; end;