I=1,44Мбайт=1474,56Кбайт=1509949,44байт=12079595,52бит
Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.
Var
a,b,c:integer;
begin
writeln('Vvedite chislo ot 10 do 99');
readln(c);
a:=c div 10;
b:=c mod 10;
if b>a then writeln(c) else
begin
c:=b*10+a;
writeln(c);
end;
end.
Дуже просто 5+6-7+10=14 грибів . А блок схема :
малюєш овал в ньому пиши початок, далі прямокутник, а в ньому 5, далі знов прямок, а вньому +6 і т.д