Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>
<span>1)АГБ
Нарушается правило "</span>на первом месте стоит одна из бусин Б,В,Г<span>"
2)ВАА
Нарушается правило "</span>На третьем месте - одна из бусин А,В,Г, не стоящая в цепочке на первом или втором месте<span>"
3)БГВ
Нарушается правило "</span><span>На втором - одна из бусин А,Б,В</span><span>"
4)ГБА
Все правила выполнены.
Ответ: 4)ГБА</span>
1) 1110001=110001;
1011110=1011110.
2)95=10111111;
18=10010
Маша старше.
Допустим, Кате 6 лет. Соответственно, если Катя моложе Феди, то Феде больше. Предположим, что ему 7 лет. Маша такого же возраста, что и Федя. Значит, Маше 7 лет. 6 больше чем 7.