1) взвешивается две кучки по девять монет, какая кучка весит меньше или больше - в той фальшивая монета. Если кучки весят одинаково - фальшивка в третьей кучке.
2) кучка с фальшивой монетой делится на три части по три монет и проводится взвешивание,. аналогично предыдущему
3) кучка с фальшивой монетой делится по одной монете и взвешивается если две монеты на весах весят одинаково, то которая не лежит на весах фальшивая, иначе которая на весах легче, та и фальшивая
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8
Задача решается перебором всех целых положительных двухзначных чисел (в цикле от 11 до 99 включительно с шагом 1). Для того, чтобы выяснить, кратно ли число 3, необходимо использовать функцию остатка от целочисленного деления (mod).
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
