Подсчет количества одинаковых цифр в числе

@ilshat92 · Регистрация: 06.01.2010

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

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

@кот Бегемот · 06.01.2010, 18:55

недавно было хорошее решение этой задачи, поищите через поиск

@WolfCF · 07.01.2010, 09:57

мой вариант

Pascal

uses crt;
var
   k,n,y,c: integer;
begin
clrscr;
writeln('Vvedite chislo: ');
readln(n);
c:=0;
while (n>0) do begin
    k:=(n mod 10);
    n:=(n div 10);
    y:=n;
while (y>0) do
 begin
  if k=(y mod 10) then
      c:=c+1;
  y:=(y div 10);
  end;
  end;
  textcolor(green);
   if c<>0   then
         writeln('YES')
        else writeln ('NO');
        readkey
end.

вариант Inadequate
Одинаковые цифры

@ilshat92 1 / 1 / 0 Регистрация: 06.01.2010 Сообщений: 37
		1
	Подсчет количества одинаковых цифр в числе 06.01.2010, 18:43. Показов 6182. Ответов 2 Метки нет (Все метки) Программа подсчета одинаковых цифр в числе. 0

@кот Бегемот Платежеспособный зверь 8835 / 4269 / 1621 Регистрация: 28.10.2009 Сообщений: 11,407
	06.01.2010, 18:55	2
	недавно было хорошее решение этой задачи, поищите через поиск 0

Опции темы

Подсчет количества одинаковых цифр в числе

Решение