Выделите строки программы, которые приведут к сообщению об ошибке.

Program test2;

Var x1, x2: real; a1, a2: integer; s1, s2:string;

Begin

[ a1:=abs (5); ]

[ x1:=sqr (-16); ]

[ a2:=sqrt (16); ]

[ x2:=sqrt (5); ]

[ s1:=16+5; ]

[ s2:=’16’+’5’; ]

End

1 шаг: делишь 24 на три части по 8 монет в каждой, определяшь одним взвешиванием в какой из трех частей находится монета;

2шаг: делишь эту часть из 8 монет на три части: 3 + 3 + 2 монеты. Взвешиваешь две части по три монеты. Если они равны, значит монета в части где 2 монеты. Если не равны, тогда монета в той, которая легче;

3 шаг: Если монета в части из 3 монет, - берешь две любых и взвешиваешь, если они равны, тогда фальшивая та, что осталась. Если монета в части из 2 монет то просто взвешиваешь и определяешь

Изображаем условие на кругах Эйлера. Если по запросу "паркур и конкур" ничего не найдено, то тем более ничего не будет найдено по запросу "паркур и конкур и прыжок". Остальные области заполняются однозначно, сначала пересечения, потом, чтобы суммарные количества совпали с условием.
Запросу "паркур или прыжок или конкур" соответствует объединение всех областей, по запросу будет найдено (58 - 32) + (52 - 14) + (99 - 14 - 32) + 14 + 32 + 0 + 0 = (58 + 52 + 99) - (32 + 14 + 0) + 0 = 163 тысячи страниц