из цисел выбрат павторение Опции

[maksimla]

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что я зделал

program m;
var a:longint;
function cislo(n:longint):longint;
begin
while n>0  do
begin
 cislo:= n mod 10;{число разделяю на цифры}
 n:=n div 10;
 writeln(cislo);
 end;
 end;
 begin
 writeln('vvedite');
 readln(a);
 cislo(a);
 readln;
 end.

асталась мне эти цифры сравнить все со веми и записат ниповторяющийся цифры что подскажете

Сообщение отредактировано: Lapp - 24.01.2008 17:23