На взять и две монеты положить на весы ( любые) дальше 2 варианта: либо две монеты равны в весе, тогда фальшивая третья, либо одна будет легче и она будет фальшивой
S := 500, то есть s изначально была равна 500
Затем начинается цикл for, в каждом повторе цикла переменная k увеличивается на 1, от 4 до 10. То есть в первом повторе k=4, во втором k=5, и так до тех пор, пока k не станет равна 10.
При этом каждый повтор цикла от S отнимается 2*k, то есть в первом повторе от s будет отнято 2*4=8, во втором 2*5 = 10, в третьем 2*6=12 и так далее.
Можно решить, рассмотрев все повторы цикла, у нас получится:
500-8-10-12-14-16-18-20 = 402
Можно найти сумму чисел, которые будут вычтены из S. Числа представляют собой арифметическую прогрессию с разницей в 2, первый элемент прогрессии 8, всего чисел 7.
Сумму первых членов прогрессии найдем по формуле ((2*8+2(7-1))/2)*7 = 98
500-98 = 402
<em>Как-то так будет выглядеть ответ</em>
<em>UPD: 4 и 5 варианты стоит</em><u><em> поменять местами</em></u><em>.</em>
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
1. Определим, во сколько раз 512 Кбайт меньше, чем 3 Мбайт
3 Мб = 3×1024 = 3072 Кбайт
3072/512 = 6.
2. Поскольку файл меньше в 6 раз, время его передачи тоже будет меньше в 6 раз и составит 24/6 = 4 с.
Ответ: 4 секунды.
