106function f(x: integer): integer; var l, m: integer; begin l : = x - 12; m : = x + 12; while l < > m do if l > m then l : = l - m else m : = m - l; f : = l; end; begin var x : = 100; var r : = 0; repeat x : = x + 1; r : = f(x); until r = 2; writeln(x); end.
toprussianevent
25.09.2022
Делим 1000 монет на 4 кучки по 250 монет. в одной из этих кучек есть фальшивая монета(она либо легче либо тяжелее обычной монеты) ложим на весы две кучки по 250 монет. если вес у них равен, то среди них нет фальшивой монеты. ложим две другие кучки. тот вес, который отличается от прошлого взвешивания говорит о том, что в кучке есть фальшивая монета(это мы определяем на втором взвешивании). мы определили кучку с фальшивой монетой. дальше разбиваем кучу еще раз и повторяем операцию изначально кучу можно разбить по разному, например, на 10 кучек по 100 монет
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
3. при чего реализуются алгоритмы при программировании? 1)при подпрограмм 2)при следования 3)при ветвлений 4)при циклов