как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
Спасибо
Ответ дал: Гость
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.
Популярные вопросы