var a:array[0..9]of integer;
n,i,m: integer;
begin
readln(n);
repeat
m:=n mod 10;
inc(a[m]);
n:=n div 10;
until n<=0;
for i := 0 to 9 do begin
if a[i]>1 then writeln('Цифра:',i,' количество:', a[i]);
end;
end.
Тестовый прогон:
1112333
Цифра:1 количество:3
Цифра:3 количество:3
1) random(1, x);
2) random(1, x + 1);
3) random(n + 1, x + n + 1);
Объяснение:
Круглые скобки означают не четкое вхождение числа в интервал, квадратные - четкое. Т.к. random в pascal верхнюю границу интервала берет как не четко входящее число, то необходимо добавить 1, чтобы нужное вам число точно вошло в интервал