Из 9 монет одинакового достоинства одна фальшивая (более легче за сколько взвешиваний на чашечных весах без гирь вы можете её определить? ответ напишите с решением.

Взвесь  две кучки по  три монеты,если  у обоих вес одинаковый там нет фальшивой монеты,если  одна легче в ней фальшивая монета.из кучки с монетой возьми две монеты  и взвесь  их, если обе монеты одинаково  весят оставшаяся монета фальшивая,если  одна легче, она  фальшивая. за  два  взвешивания.

1. современное короткое, но скорее всего, мало понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 function linelen(a,b: (real,real)): =   sqrt(sqr(b.item1-a.item1)+sqr(b.item2-a.item2)); begin   var a: array[1..3] of (real,real);   var x,y: real;   writeln('введите три пары координат x,y');   for var i: =1 to 3 do begin read(x,y); a[i]: =(x,y) end;   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end. тестовое решение: введите три пары координат x,y 3 -3.5 -6 8 4 5.2 периметр треугольника равен 33.7449685386805 2. традиционное, но возможно тоже не понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 type   point=record       x,y: real       end; function linelen(a,b: point): real; begin   result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)); end;   var   a: array[1..3] of point;   begin   writeln('введите три пары координат x,y');   for var i: =1 to 3 do read(a[i].x,a[i].y);   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end.

Const m = 3; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..n] of integer; i,j,k,maxm: integer; begin   for i: =1 to m do begin       for j: =1 to n do begin           write('a[',i,',',j,']= ');           readln (a[i,j]);           if a[i,j]< =0 then b[j]: =-1;       end;   end;     for i: =1 to n do begin       if b[i]=0  then begin           writeln('столбец №',i,' все положительные');           break;         end         else           if i=n then writeln('таких столбцов не было');       end;   for i: =1 to m do begin       for j: =1 to n do write(a[i,j]: 5);       writeln;   end; end. тестовое решение: a[1,1]= 7 a[1,2]= 2 a[1,3]= 1 a[1,4]= -9 a[2,1]= -2 a[2,2]= 2 a[2,3]= 4 a[2,4]= 1 a[3,1]= 7 a[3,2]= 2 a[3,3]= 3 a[3,4]= 1 столбец №2 все положительные       7      2      1    -9     -2      2      4      1       7      2      3      1