|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Определить количество цифр в натуральном числе N
помогите плиз написать программу=)буду оч благодарна...
Определить количество цифр в натуральном числе N |
#2
|
||||
|
||||
Не учитывая повтор цифр:
Код:
Result := Length(IntToStr(N)); - где N - входное число Код:
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; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |