Самый простой узнать какая монета легче (тяжелее деления на половины: 1) Разделить монеты на две части по 50 монет Взвесить их, на какой чаше весов находится легкая (тяжелая) монета будет понятно по положению чаш. 2) Одну половину отложить, вторую половину монет опять разделить на две части. Взвесить половины по 25 монет. Результат тот же: если чаша весов поднялась вверх - там находится легкая монета (если ищем тяжелую - то опустится) 3) Отложить одну часть - в которой нет легкой (тяжелой монеты). Снова поделить на две половины по 12 монет. Одна монета останется. Взвесить на весах монеты: если чаши останутся в равновесии, значит одиночная монета легче (тяжелее) остальных. Если положение чаш весов изменится, значит определяем, в какой чаше нужная монета. 4) 12 оставшихся монет делим на 2 части по 6 монет. Взвешиваем. Оставляем снова одну часть. 5) 6 монет делим на 2 части. Взвешиваем. Определяем, где легче (тяжелее). 6) 3 делим на 2 части по одной монете. весы в равновесии при сравнении двух монет, значит последняя монета легче (тяжелее). Если весы изменили положение, значит на них нужная монета. Итого 6 взвешиваний.
1. пропала ; после writeln('Цифра')
2. меньше или равно пишется <=, так что условие n=<300 надо переписать n<=300
3. после sum:=n+sum; пропала закрывающая скобка end
4. после else надо бы еще begin
5. предпоследняя строчка тоже мимо.
Вот вся исправленная прога:
program one;
var a,n,sum,b:integer;
sred:real;
begin
readln(n);
writeln('Цифра');
while (n<>0) do
begin
sred:=0;
sum:=0;
b:=0;
if(n mod 8 =0 )and (n<=300) then
begin
sum:=n+sum;
end
else
begin
writeln('NO');
end;
readln(n);
if b>100 then
writeln('NO')
end;
sred:=sum/b;
writeln('Среднее арихметическое равно ',':=',sred);
end.
1) Разделить монеты на две части по 50 монет
Взвесить их, на какой чаше весов находится легкая (тяжелая) монета будет понятно по положению чаш.
2) Одну половину отложить, вторую половину монет опять разделить на две части.
Взвесить половины по 25 монет. Результат тот же: если чаша весов поднялась вверх - там находится легкая монета (если ищем тяжелую - то опустится)
3) Отложить одну часть - в которой нет легкой (тяжелой монеты). Снова поделить на две половины по 12 монет. Одна монета останется.
Взвесить на весах монеты: если чаши останутся в равновесии, значит одиночная монета легче (тяжелее) остальных. Если положение чаш весов изменится, значит определяем, в какой чаше нужная монета.
4) 12 оставшихся монет делим на 2 части по 6 монет. Взвешиваем. Оставляем снова одну часть.
5) 6 монет делим на 2 части. Взвешиваем. Определяем, где легче (тяжелее).
6) 3 делим на 2 части по одной монете. весы в равновесии при сравнении двух монет, значит последняя монета легче (тяжелее). Если весы изменили положение, значит на них нужная монета.
Итого 6 взвешиваний.