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

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/9:

@Dashusik 1 / 1 / 0 Регистрация: 05.05.2013 Сообщений: 31

	Подсчитать количество различных цифр в десятичной записи натурального числа 09.11.2013, 17:27. Показов 1724. Ответов 1 Метки нет (Все метки) помогите написать программу 0

Лучшие ответы (1)

Сообщение: #5309824

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

09.11.2013, 17:27

Ответы с готовыми решениями:

Подсчитать количество различных цифр в десятичной записи натурального числа
Тема: Строки.Множества. 3.2. Подсчитать количество различных цифр в десятичной записи натурального числа.

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

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

Puporev

Почетный модератор

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

09.11.2013, 18:21

Сообщение было отмечено Dashusik как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var a:longint;
    k,p:byte;
    b:set of 0..9;
begin
clrscr;
repeat
write('Ââåäèòå íàòóðàëüíîå ÷èñëî a=');
readln(a);
until a>0;
b:=[];
p:=0;
while a>0 do
 begin
  k:=a mod 10;
  if not (k in b)then
   begin
    include(b,k);
    p:=p+1;
   end;
  a:=a div 10;
 end;
write('Êîëè÷åñòâî ðàçíûõ öèôð=',p);
readln
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

09.11.2013, 18:21

Помогаю со студенческими работами здесь

Определить, сколько различных чисел встречается в десятичной записи данного натурального числа
Дано натуральное число N. Определить, сколько различных чисел встречается в его десятичной записи. Программа должна выводить результаты...

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

Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа
Помогите решить задачу!!! Плиз! Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа n и напечатать в...

Количество различных цифр в десятичной записи натурального числа
Написать программу, подсчитывающую количество различ-ных цифр в десятичной записи натурального числа n. Зарание спасибо :)

Подсчитать количество простых чисел в десятичной записи натурального числа n
Составить программу, которая подсчитывает количество простых чисел в десятичному записи натурального числа n. Напечатать числа, которые...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища 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 и др. . . .

Наверх