Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
makleso
0 / 0 / 0
Регистрация: 08.04.2011
Сообщений: 41
1

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

29.10.2012, 21:12. Просмотров 1658. Ответов 1
Метки нет (Все метки)

Здравствуйте уважаемы форумчане!
Помогите решить задачу:
составить программу подсчета количества различных значащих цифр в десятичной записи натурального числа.
 Комментарий модератора 
Правила форума п. 4.4: На каждый вопрос создавайте по одной теме.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2012, 21:12
Ответы с готовыми решениями:

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

Сколько различных цифр в десятичной записи числа
Задачка на цикл for: Дано Натуральное число N.Найти сумму S=1+1/2+1/3+...+1/N....

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

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

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

1
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,187
Записей в блоге: 1
30.10.2012, 08:55 2
Лучший ответ Сообщение было отмечено makleso как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var n,k,n1:integer;
    mn:set of 0..9;
Begin
    write('Введите число n: ');readln(n);
    n1:=n;mn:=[];k:=0;
    While n1>0 do
    Begin
      if not(n1 mod 10 in mn) then inc(k);
      mn:=mn+[n1 mod 10];
      n1:=n1 div 10;
    End;
    if n>0 then writeln(k)
     else writeln(1);
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2012, 08:55

Найти количество различных цифр в десятичной записи числа.
Дано N(1<=N<=10^9). Найти количество различных цифр в десятичной записи числа. Количество...

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

Подсчет количества цифр числа + приближение числа Пи ф-лой Борвейна
Уважаемые форумчане, была бы очень признательна, если бы кто-нибудь мне помог определить, что я...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru