// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Min. сумма соседних элементов: ',
a.Pairwise.Select(x->x[0]+x[1]).Min)
end.
<u><em>Тестовое решение</em></u>
n= 15
72 22 71 77 41 89 73 54 29 47 47 46 98 82 15
Min. сумма соседних элементов: 76
var
m, n, x : integer;
begin
write('введите m ');
readln(m);
write('введите n ');
readln(n);
writeln('значение функции y=sin(4x^2) на промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sin(degToRad(4*sqr(x))));
writeln('значение функции y=x^2+8x-6 промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sqr(x)+8*x-6);
end.
Если "0" и "1" всего 2, то так: 00, 01, 10, 11
Если должно быть два "0" и две "1", то так:
0011, 0101, 0110, 1001, 1010, 1100
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой способ ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!!!!