использовать Робот
алг столбы
нач
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
кон
Поделитесь своими знаниями, ответьте на вопрос:
Построить диаграмму эйлера-венна, используя комбинаторный принцип включений-исключений, выразить мощность множества d через мощности a, b, c и их пересечений (мощность универсального множества u также считается известной доказать полученное методом характеристических функций. d=(a∩b)δ(c∪ ¬a)
var A: array [1..4,1..3] of real;
var B: array [1..4,1..3] of integer;
var i,j,max,min: integer;
begin
max:=11;
min:=11;
randomize();
writeln('Произвольная матрица B 3x4:');
For i:= 1 to 4 do
begin
For j:= 1 to 3 do
begin
B[i,j]:=random(100);
if (B[i,j]<B[min div 10,min mod 10]) then min:=i*10+j;
if (B[i,j]>B[max div 10,max mod 10]) then max:=i*10+j;
write(B[i,j]:4);
end;
writeln();
end;
writeln('Максимальный элемент матрицы B: ',B[max div 10,max mod 10]);
writeln('Минимальный элемент матрицы B: ',B[min div 10,min mod 10]);
writeln('Матрица A:');
For i:= 1 to 4 do
begin
For j:= 1 to 3 do
begin
A[i,j]:=(2*B[i,j]+B[min div 10,min mod 10])/(B[max div 10,max mod 10]);
write(A[i,j]:7:3);
end;
writeln();
end;
end.