Представтте что перед вами три ведрапредставтте что перед вами три ведра разной вместимости 1 ведро - id254504420200229 от dasha5132 29.02.2020 12:23

Question

Информатика: Представтте что перед вами три ведрапредставтте что перед вами три ведра разной вместимости 1 ведро - 8л 2 ведро -5л 3 ведро 3л первое ведро заполнено доверху водой два других ведра пусты. нужно напоить двух лошадей дав им по 4л каждой воды. на логику.

dasha5132 · Accepted Answer

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin   var a:=ReadLines( m17.txt ).JoinIntoString.ToIntegers;   a.Println;   var b:=a.Select((x,i)- Rec(x,i)).Where(x- x.Item1 0)     .Select(x- x.Item2).ToArray;   if b.Count 2 then     Writeln( Количество отрицательных элементов не равно двум )   else begin     a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))       .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;     a.Println     end end. Тестовое решение: 23 14 7 15 0 13 -6 41 18 13 8 42...

MOGZ ответил