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

31) взвешиваем по 4 если = , то взвешиваем 2 оставшиеся и определяем если < > 2) взвешиваем по 2 из кучки легких 3) взвешиваем по 1 из кучки легких и находим

//pascal abc.net v3.0 сборка 1111 //"школьный" вариант, первая блок-схема var   a,b,c: integer; begin   read(a,b,c);   if (a=b) and (b=c) then  writeln('=') else   begin;   if a> b then   if a> c then writeln(a);   if b> a then   if b> c then writeln(b);   if c> a then     if c> b then  writeln(c);   end; end.//вариант для любителей оккультизма, вторая блок-схемаbegin  var se: =readarrreal(3);   if se.sum()/se.average()=se.average() then writeln('=') else writeln(se.max); end.  пример ввода: 333пример вывода: =

Var   a: array [1..3] of real;   max: real;   i,check: integer; begin   writeln('поиск максимального 3-х чисел');   writeln('введите значения 3-х чисел');   for i: = 1 to 3 do       readln(a[i]);   max: =a[1];   check: =1;   for i: =2 to 3 do   begin       if a[i]> max then           max: =a[i]       else if a[i]=max then           check: =check+1;     end; if check=3 then   writeln('все числа равны') else      writeln('max=',max) end.