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

@sk1pper · Регистрация: 02.12.2012

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

@Puporev · 14.01.2013, 19:21

Pascal

uses crt;
var n:integer;
    c,k:byte;
    m:set of 0..9;
begin
write('n=');
read(n);
k:=0;
m:=[];
while n>0 do
 begin
  c:=n mod 10;
  if not(c in m) then
   begin
    k:=k+1;
    m:=m+[c];
   end;
  n:=n div 10;
 end;
write('Различных цифр=',k)
end.

@sk1pper 0 / 0 / 2 Регистрация: 02.12.2012 Сообщений: 25
		1
	Множества: подсчет количества различных значащих цифр в десятичной записи числа 14.01.2013, 17:41. Просмотров 1073. Ответов 1 Метки нет (Все метки) Надо решить эту задачу по теме :множества Составить программу подсчета количество различных значащих цифр в десятичной записи натурального числа . 0

Опции темы

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

Решение