сначала берём 12 монет и делим их напополам и кладём по 6 монет на каждую из чаш весов. Так мы вычислели в какой из кучек монет находится фальшивая монета. (потрачено одно взвешивание) После этого делим напополам ту кучку которая оказалась легче и кладём по 3 монеты на чаши весов. Так мы вычислели в какой из кучек монет находится фальшивая монета.(потрачено второе взвешивание) Теперь достаем из той кучки которая осталась легче две монеты и кладём их на чаши весов если они равны то 3 монета является фальшивой, а если одна из них легче то ну это и есть фальшивая монета.(потрачено третье взвешивание).
Объяснение:
отметь как лучший
1. в компьютере вирус поглащающий его скоростно
2. Компу нужно обновить данные которые хранятся в нём
(Сорри на 3 не знаю ответ)
4.это также можно назвать"Водяной знак" или "Синяя волна"
(незнаю потому-что это связано с 3)
6.это числа которые не в разброс и стоят правильно
7.вещественые числа испальзуют чтобы что-то создать
8.нормальное представление имеют только числа которые по порядку
9.а для следующего нужно сначала нарисовать потом написать.
10. да тфу легко (5, 9, 112,258)
НЕ ОТМЕЧАЙТЕ КАК НЕ ПРАВЕЛЬНЫЙ!
Я КАК МОГЛА СТАРАЛАСЬ ПРАВДА!
Поделитесь своими знаниями, ответьте на вопрос:
Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от −10 000 до 10 000 включительно. опишите алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 13. в дан¬ной под парой подразумевается два подряд идущих элемента массива. например, для массива из пяти элементов: 13; 7; 26; −1; 9 — ответ: 3. исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const n = 30; var a: array [1..n] of integer; i, j, k: integer; begin for i : = 1 to n do readln(a[i]); end.
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.