Pascal
Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз

program num1;var a:array[1..9] of longint;i,n:longint;beginreadln(n);for i:=0 to 9 do a[i]:=0;while n>=1 dobegina[n mod 10]:=a[n mod 10]+1;n:=floor(n/10);end;for i:=0 to 9 do if a[i]>2 then writeln(i);end.

varn, i: integer;a: array [0..9] of integer;beginfor i := 0 to 9 doa[i] := 0;readln(n);while (n <> 0) dobegininc(a[n mod 10]);n := n div 10;end;for i := 0 to 9 doif (a[i] < 2) thenwrite(a[i],' ');end.