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

[Banderas123]

Задача:

Дано число N>=0. Проверить его цифры и определить сколько одинаковых цифр.

Не могу придумать проверку цифр на идентичность =(((

[Chudo4258]

создай массив от 0 до 9.
Затем отделяеш одну цифру, смортишь какая она и соответственно записываешь, т.е. например если цивра 9, то inc(A[9]);

затем выводишь этот масив:

for i:=0 to 9
Writeln('Цифра ',i,' встречается в записи числа ', A[i],' раз' )

[Banderas123]

мне надо что бы программа делала все самостоятельно. Я уже написал делитель числа на цифры:

s:=string;
N:=integer;
begin
readln(N);
str(N, s);

теперь при вводе числа 3242 s[1] = 3, s[2]=2, s[3]=4, s[4]=2. Мне теперь надо написать код, что бы узнать есть ли в этом массиве одинаковые цифры. Вот это я не могу написать =(

[Базиля]

теперь при вводе числа 3242 s[1] = 3, s[2]=2, s[3]=4, s[4]=2. Мне теперь надо написать код, что бы узнать есть ли в этом массиве одинаковые цифры. Вот это я не могу написать =(

for j:=1 to n do
for i:=1 to n-1 do
if s[j]=s[i+1] then
writeln('числа ',s[j],'и',s[i+1],' равны');

че-то типа того

[Banderas123]

Базиля, не то... =( когда j стает 2, то второе число не может сравнится с первым. Тоесть s[2] никак не сравнится с s[1], потому что s[2] = s[i+1]

[Базиля]

Базиля, не то... =( когда j стает 2, то второе число не может сравнится с первым. Тоесть s[2] никак не сравнится с s[1], потому что s[2] = s[i+1]

......
А когда j=1 разве первое число не сравнивается со 2-ым?
s[j]=s[i+1]
1=2
Там недочетик один, цикл

for i:=1 to n-1 do

замени на

for i:=j to n-1 do

[Banderas123]

ага, точно =)
но программа выводит все значение, тоисть все цифры. Не знаю как посчитать и вывести те, что повторяются.

[Базиля]

Banderas123
кинь текст программы.
а вообще я же тебе написал, как вывести те что повторяются

writeln('числа ',s[j],'и',s[i+1],' равны');

Не знаю как посчитать

в цикл засунь счетчик переменной К который увеличивает ее на 1.:

for j:=1 to n do
for i:=j to n-1 do
if s[j]=s[i+1] then
begin
writeln('числа ',s[j],'и',s[i+1],' равны');
k:=k+1;

потом за циклом выводишь K это и есть кол-во повторяющихся чисел

[Banderas123]

program 111;
uses CRT;
var
s : string;
N, i, j, l : integer;

begin ClrScr;
readln(N);
str(N,s);

for j:=1 to 5 do begin
    for i:=1 to 4 do  begin
        if s[j] = s[i+1] then begin
            writeln(s[j], ' = ', s[i+1]);
            l:=l+1;
        end;
    end;
    readln;
end;
end.

[Базиля]

че то я вообще не понял, прогрмма твоя бред выводила полный.

program 111;

Название программы не может начинаться с числа.
--------------------------------------------------------
В общем я тебе написал прогу с использованием одномерного массива:

program zad1;
type mas=array[1..10] of integer;
var a:mas;
j,k,i,n:integer;
begin
writeln('введите кол-во цифр в числе');
readln(n);
for i:=1 to n do
begin
read(a[i]);
end;
k:=0;
for j:=1 to n do
for i:=j to n-1 do
if a[j]=a[i+1] then
begin
writeln('цифры ', a[j],' и ', a[i+1],' равны ');
k:=k+1;
end;
writeln('кол-во повторяющихся цифр = ',k);
end.

Все работает, только не стоит вводишь все одинаковые цифры=) Глаза на лоб налезут от вывода)) Ума не привожу что с этим сделать, не могу сейчас сообразить... голова уже не варит