// PascalABC.NET 3.2, сборка 1403 от 16.03.2017 // Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer; begin Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray; var i:=s.IndexMax; var k:=s.Where(x->x=s[i]).Count; case k of 1:begin Write('Сумма цифр наибольшая у '); case i of 0:Write('первого'); 1:Write('второго'); 2:Write('третьего'); end; Writeln(' числа') end; 2:begin Write('Сумма цифр наибольшая у '); if s[0]=s[1] then Writeln('первого и второго чисел') else if s[0]=s[2] then Writeln('первого и третьего чисел') else Writeln('второго и третьего чисел') end; 3:Writeln('Суммы цифр у всех трех чисел равны') end end.
Примеры Вводите: 102030 324 19 Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341 Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321 Суммы цифр у всех трех чисел равны
Я уже решал эту задачу. Я руками за 5 дней делаю 5 коробок, и на 6-ой день покупаю духовку. Руками и духовкой я делаю 2 коробки в день, за 5 дней - 10 коробок. На 6-ой день я покупаю вторую духовку. Руками и 2-мя духовками я за 5 дней делаю 15 коробок, и на 6-ой день покупаю 3-ью духовку. И так далее. Чтобы купить очередную духовку, я работаю 5 дней, а на 6-ой день ее покупаю, и у меня печенья не остается совсем. То есть, после покупки каждой духовки я начинаю всё с нуля. Главное - понять, когда нужно остановиться покупать духовки и начать уже копить печенье на складе. Итак, подведем итоги: 1) На покупку каждой духовки мы тратим 6 суток и начинаем с нуля. 2) Имея n духовок, мы делаем 584 коробок печенья за trunc(584/(n+1)) + 1 дней, где trunc(x) = [x] - это целая часть x. 3) Всего мы тратим времени T(n) = 6n + trunc(584/(n+1)) + 1 --> min Минимум функции trunc(584/(n+1)) совпадает с минимумом 584/(n+1) T(n) = 6n + 584/(n+1) + 1 --> min T'(n) = 6 - 584/(n+1)^2 = (6(n+1)^2 - 584) / (n+1)^2 = 0 6(n+1)^2 - 584 = 0 (n+1)^2 = 584/6 = 97,33 n + 1 = √97,33 ~ 9,86 = 10 n = 9 Значит, нужно ограничиться покупкой 9 духовок. За 6*9 = 54 дня мы их купим, и за 584/10 ~ 59 дней мы соберем нужное количество коробок на складе. Всего мы истратим 54 + 59 = 113 дней.
