Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.
Если правильно поняла,то число 10110101 -181,присутствует в каждом слове. и код буквы П- 11101111,он присутствует в первом слове в двух первых числах. надеюсь помогла
Если просто надо убрать легенду, просто щелкните мышкой на ней и там должно появиться сообщение типа ОЧИСТИТЬ ЛЕГЕНДУ
Диаграмма — графическое изображение<span>, </span>дающее наглядное представление<span> о </span>соотношении каких-либо величин<span> или </span>нескольких значений одной величины<span>, об </span>изменении их значений<span>.</span>