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

@Berus · Регистрация: 31.05.2010

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

@Hidalgo08 · 08.06.2010, 13:21

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
26
27
uses crt;
type Mn=set of 0..9; {тип множество цифр}
var n,a:longint;
    i,k:byte;
    b:Mn; {переменная этого типа}
begin
clrscr;
write('Vvedite naturalnoe chislo N=');
readln(n);
b:=[];{множество пока пустое}
while n>0 do{пока число больше ноля}
 begin
   a:=n mod 10;{отделяем по одной цифре с конца}
   if not (a in b)then{если ее нет еще в множестве}
     begin
       include(b,a);{вставляем}
       k:=k+1;{считаем}
     end;
   n:=n div 10;{берем число без последней цифры и все повторяем}
 end;
writeln('Kolichestvo raznyh cifr v chisle N=',k);
writeln('V chislo ne vhodyat cifry:');
for i:=0 to 9 do {проверяем цифры от 0 до 9}
if not (i in b )then{если цифры нет в множестве}
write(i,' ');{выводим}
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

@Berus 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 35

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

Опции темы

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

Решение