На школьном дворе разбивают 4 клумбы прямоугольной формы. Первая клумба представляет собой квадрат со - id1103056720221031 от lizaivanovamail 31.10.2022 07:18

Question

Информатика: На школьном дворе разбивают 4 клумбы прямоугольной формы. Первая клумба представляет собой квадрат со стороной 25 метров. Вторая клумба имеет форму прямоугольника, его стороны — 25 и 3 метра. Стороны третьей клумбы равны 2 метра. Четвёртая клумба представляет собой прямоугольник со сторонами 25 и 2 метра. Сколько всего провода нужно для обозначения границ данных клумб?

lizaivanovamail · Accepted Answer

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var a0:=a[0];
var b:=a[1:].Where(x->x mod a0=0).ToArray;
if b.Length>0 then b.Println
else Writeln('Нет элементов, кратных первому');
end.

Пример
n= 16
-11 85 11 -9 -24 32 6 42 -92 -69 -87 2 -11 -77 -94 66
11 -11 -77 66

Замечание.
Если первый элемент тоже нужно включить в результирующий массив,
нужно записать так: var b:=Where(x->x mod a0=0).ToArray;

MOGZ ответил