На планете триа использую только числа от 1 до 27. их записывают с символов « »,«.» и « ». запись числа - id193732620230201 от enrnud6 01.02.2023 13:22

Question

Информатика: На планете триа использую только числа от 1 до 27. их записывают с символов « »,«.» и « ». запись числа n выполняется по следующему алгоритму: 1) весь интервал (1..27) делится на 3 равные части: от 1 до 9, от 10 до 18 и от 19 до 27. 2) если число n оказалось в первом интервале, записываем символ « », если во втором символ «.», и если в третьем – символ « » 3) делим оставшийся интервал (в который попало число n) на три части и определяем следующий знак кода, который записывается справа от предыдущих

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