Специалисты NASA приняли решение сделать n фотографий земной поверхности. Для выполнения этой задачи - id2049885320220120 от diana1078 20.01.2022 20:28

Question

Информатика: Специалисты NASA приняли решение сделать n фотографий земной поверхности. Для выполнения этой задачи в их распоряжении есть k спутников. Чтобы снизить нагрузку на подсистемы NASA, было принято решение распределить снимки по спутниками равномерно так, чтобы количество сделанных снимков любыми двумя спутниками отличалось не больше, чем на 1. Укажите, сколько спутников сделают меньше всего снимков.

diana1078 · 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 ответил