// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray; a.Println; Writeln('1: ',a.Where(t->t<0).Sum); a.Sort; // по возрастанию a.Println; Writeln('2: ',a[a.IndexMin+1:a.IndexMax].Aggregate(1.0,(x,y)->x*y)) end.
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(m,n,-20,20); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('1: ',a.Rows.Where(r->r.All(t->t<>0)).Count); Writeln('2: ',a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count)) .Where(t->t[1]>1).MaxBy(t->t[0])[0]) end.
1. Определим производительность каждого принтера, т.е. какую часть грамоты он отпечатает за 1 минуту. 1-й: 1/5, 2-й: 1/7, 3-й: 1/9. 2. Работая вместе, все три принтера напечатают за минуту 1/5+1/7+1/9= 143/315 часть грамоты. 3. Определим время, которое понадобится чтобы сделать всю работу 2018/(143/315) ≈ 4445 мин. 4. Определим, сколько грамот напечатает за это время каждый принтер. 1-й: 4445/5 = 889, 2-й: 4445/7 = 635, 3-й: 4445/9 = 493.8. 5. Поскольку 3-й принтер не успевает напечатать одну грамоту, поправим время работы: 494х9 = 4446 мин. 6. Проверка. 889+635+494 = 2018.
128 x Бит = 2 кБ = 2048 Байт = 2048 * 8 Бит = 16384 Бит
x = 16384 / 128 = 128
2)
64x Бит = 128 Байт = 128 * 8 Бит = 1024 Бит
х = 1024 / 64 = 16