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

@Мотвикс · Регистрация: 29.10.2013

Студворк — интернет-сервис помощи студентам

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

@ildwine · 06.11.2013, 13:33

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  k, i : integer;
  a : longint;
  b : set of integer;
begin
  b := [];
  k := 0;
  write('введите число: ');
  readln(a);
  while a <> 0 do
  begin
    include(b, a mod 10);    
    a := a div 10
  end;
  for i := 0 to 9 do
    if i in b then inc(k);
  writeln('количество различных цифр в числе: ', k);
  readln
end.

@Мотвикс · 07.11.2013, 22:44 **[ТС]**

А можно это как-нибудь сделать через множества?

@Fakeoke · 07.11.2013, 22:50

тут и так через множество
сначала создается множество цифр числа...
а потом выводятся элементы множества

@Мотвикс · 07.11.2013, 22:59 **[ТС]**

Сообщение от Fakeoke

тут и так через множество
сначала создается множество цифр числа...
а потом выводятся элементы множества

Пишет базовый тип множества вне диапозона,что это значит?

@Fakeoke · 07.11.2013, 23:13

напишите
set of byte;

Новые блоги и статьи Все статьи Все блоги /
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .

@Мотвикс 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 13

	Подсчитать количество различных цифр в десятичной записи натурального числа 06.11.2013, 13:05. Показов 5540. Ответов 5 Метки нет (Все метки) подсчитать количество различных цифр в десятичной записи натурального числа.помогите 0

@Мотвикс 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 13
	07.11.2013, 22:44 [ТС]
	А можно это как-нибудь сделать через множества? 0

@Fakeoke 523 / 399 / 213 Регистрация: 28.07.2011 Сообщений: 2,216
	07.11.2013, 22:50
	тут и так через множество сначала создается множество цифр числа... а потом выводятся элементы множества 1

@Fakeoke 523 / 399 / 213 Регистрация: 28.07.2011 Сообщений: 2,216
	07.11.2013, 23:13
	напишите set of byte; 1

Опции темы

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

Решение