Var a:array[1..100]of integer; n,i,c,k,j,x:integer; begin readln(n); c:=n; while n<>0 do begin n:=n div 10; k:=k+1; end; for i:=1 to k do begin a[i]:=c mod 10; c:=c div 10; end; for i:=1 to k do write(a[i],' '); j:=2; for i:=1 to k do begin while j<>k do begin if (a[i]=a[j]) and (i<>j) then x:=x+1; j:=j+1; end; j:=2; end; writeln; write(x,' повторов'); writeln;i f x=0 then writeln('все числа различны') else writeln('числа в числе повторяются') <span>end.</span>
Новый процессор(Например Intel Core i7 ) SSD диски вместо HDD ускоряют работу компьютера в разы. Изменение персонализации компьютера. Программы более стабильных версий.