//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(30, 50).Where(x -> x mod 3 = 0).Aggregate(1, (s, x)-> s * x);
PrintLn(a);
end.
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
if M[a, 4+1-a] < M[min, min]
then min := M[a, 4+1-a]
- у тебя в матрице рандомные числа максимум до 10, ты назначаешь их в min и max, а потом эти min и max пытаешься использовать как индексы.
Заведи отдельные переменные для сохранения индексов, например imin и imax и пользуйся ими, например как-то так:
for a := 1 to 4 do
if M[a, 4+1-a] < M[imin, imin]
then begin
min := M[a, 4+1-a];
imin := a;
end
По поводу параметра цикла не уверен, возможно в Pascal.ABC есть какие-то особенности по сравнению с обычным паскалем. Нашел вот такое:
"Описание параметра цикла for в заголовке цикла соблюдает принцип локальности: переменная описывается в том месте, где она впервые понадобилась
begin
for i: integer := 1 to 9 do
write(i,' ');
// Здесь переменная i не доступна!
for var i := 9 downto 1 do // описание с автоопределением типа
write(i,' ');
end."
Program for5;
var i:integer;
a:real;
begin
read(a);
for i:=1 to 10 do
write(a*(i/10));
end.
1)Опасность статического электричества заключается с одной стороны в том, что электрические разряды могут стать причиной пожаров и взрывов в тех отраслях промышленности, где применяют легковоспламеняющиеся вещества, с другой стороны, статическое электричество является препятствием для повышения производительности труда во многих отраслях промышленности из-за невозможности повышения скоростей движения, так как с увеличением скорости электризация резко возрастает.
