Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Если не поймешь, куда какая буква - напиши в лп
? - фальшивая
+ - настоящая
dif - знание о весе фальшивой (больше или меньше)
vs - взвешивание
=> - итог взвешивания
1 откладываем
1) 7? vs 7?
if == => 14+ 7? goto 2)
if <> => 7+ 14? goto
2) 4? vs 4+
if == => 18+ 3? goto 3)
if <> => 10+ 4? goto
3) 2? vs 2+
if == => 20+ 1? goto 4)
if <> => 19+ 2? goto
4) 1? vs 1+
if == => фальшивая та что отложена вначале
if <> => нашли
1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;