Написать программу, которая получает на вход число произвольной длины меньше, чем 9 знаков и показывает, какие в нем повторяющиеся цифры быстрее! 11! мог не правильно понять вопрос, напишите хоть что-нибудь похожее , нужно
var i,n,k: integer; a: array[0..9] of integer; begin write('число: '); readln(n); for i:=0 to 9 do a[i]:=0; while n>0 do begin k:=n mod 10; a[k]:=a[k]+1; n:=n div 10; end; for i:=0 to 9 do if a[i]>1 then writeln('повторяющаяся цифра: ',i); end.
