15 ! (как собственно и ответ) на доске 10 x 10 стоит 4 ладей, никакие две из которых не бьют друг друга. - id530956720220507 от jannamkrtchyan 07.05.2022 07:03

Question

Информатика: 15 ! (как собственно и ответ) на доске 10 x 10 стоит 4 ладей, никакие две из которых не бьют друг друга. сколькими на эту доску можно добавить еще две ладьи так, чтобы никакие две ладьи на доске не били друг друга (расстановки ладей отличаются друг от друга только в случае, если отличается набор клеток, которые эти ладьи занимают)?

jannamkrtchyan · Accepted Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;

begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.

Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем

Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем

MOGZ ответил