2 в 9 степени = 512; Ответ 9
Блок схема представлена на изображении
Var
a, d, c, t: integer;
begin
readln(a, d, c);
if a < d then begin t := a;a := d;d := t; end;
if a < c then begin t := a;a := c;c := t; end;
if d < c then begin t := d;d := c;c := t; end;
writeln(a, ' ', d, ' ', c);
end.
взвешиваем две монеты, если весы уравнялись значит оставшаяся монета фальшивая.
если весы не уравнялись, то монета располагающаяся ниже и будет фальшивая