Автомат получает на вход два трёхзначных числа. - вопрос №15230496 от nastyabodrova1 15.11.2020 02:01

Question

Информатика: Автомат получает на вход два трёхзначных числа. По этим числам строится новое число по следующим правилам. 1. Записывается результат сложения значений младших разрядов заданных чисел. 2. Если полученная сумма меньше десяти, то слева от этой суммы дописывается результат сложения значений средних разрядов заданных чисел, в противном случае - справа. 3. Итоговое число получают приписыванием слева к полученному после второго шага числу суммы значений старших разрядов исходных чисел. Пример. Исходные

nastyabodrova1 · Answer

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',n,'] ***');
var c:=MatrRandom(n,n,-99,99);
c.Println(4); Writeln(4*c.ColCount*'-');
var t:=new real[2*n];
var j:=0;
for var i:=0 to n-1 do begin
    t[j]:=c[i,i];
    t[j+n]:=c[i,n-i-1];
    j+=1
    end;
t.Println
end.

Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица [7,7] ***
-61 73 25 31 91 -61 -13
-9 -51 -98 57 -46 -16 -39
-14 68 -77 16 74 17 86
   9 -29 -2 -17 -30 23 84
71 15 22 -58 -46 42 -96
-29 -38 30 -51 70 -67 -15
   8 -96 -22 85 41 -71 -57

-61 -51 -77 -17 -46 -67 -57 -13 -16 74 -17 22 -38 8