Найти одинаковые цифры в записи числа

@Лена123 · Регистрация: 13.03.2015

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

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

@Puporev · 13.03.2015, 08:57

Перечень цифр которые повторяются.

Pascal

uses crt;
var n:longint;
    m,m1:set of byte;
    c:byte;
begin
clrscr;
write('Введите целое число n=');
readln(n);
n:=abs(n);
m:=[];
m1:=[];
while n>0 do
 begin
  c:=n mod 10;
  if c in m then m1:=m1+[c]
  else m:=m+[c];
  n:=n div 10;
 end;
if m1=[] then write('Нет одинаковых цифр')
else
 begin
  writeln('Одинаковые цифры');
  for c:=0 to 9 do
  if c in m1 then write(c:2);
 end;
readln
end.

Verevkin · 13.03.2015, 09:49

решение с массивом - подсчёт вхождений цифр
при cnts[i] > 1 цифра i повторяется в числе

Pascal

var
  cnts: array[0..9] of byte; { количество вхождений каждой цифры в число }
  x: longint; { само число }
begin
  x:= 1122330569;
  fillchar(cnts, sizeof(cnts), 0);
  repeat
    inc(cnts[x mod 10]);
    x:= x div 10;
  until x = 0;
end;

@Лена123 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 27
		1
	Найти одинаковые цифры в записи числа 13.03.2015, 08:02. Показов 3021. Ответов 2 Метки нет (Все метки) Дано число. Найти одинаковые цифры которые используются в записи этого числа. 0

Опции темы

Найти одинаковые цифры в записи числа

Решение