// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Матрица А ***'); var a:=MatrRandom(n,n,-50,50); a.Println(4); Writeln('*** Матрица B ***'); var b:=MatrRandom(n,n,-50,50); b.Println(4); Writeln('*** Матрица C ***'); var c:=MatrRandom(n,n,-50,50); c.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** (|A|+|B|)x|C| ***'); var t:=new integer[n,n]; // временная иатрица для суммы for var i:=0 to n-1 do for var j:=0 to n-1 do t[i,j]:=a[i,j]+b[i,j]; // сумма матриц var r:=new integer[n,n]; // матрица-результат for var i:=0 to n-1 do for var j:=0 to n-1 do begin var s:=0; for var k:=0 to n-1 do s+=t[i,k]*c[k,j]; r[i,j]:=s end; r.Println(8) end.
//длинная арифметика
begin
var a := '123456789123456789';//ReadString();
var b := '123456789123456789123';//...
var l := Abs(a.Length - b.Length);
var source := l*'0';
if a.Length > b.Length then
insert(source, b, 1)
else
insert(source, a, 1);
var s := '';
var mem := 0;
for var i:=a.Length downto 1 do
begin
var c := a[i].ToDigit + b[i].ToDigit + mem;
mem := c div 10;
insert((c mod 10).ToString, s, 1)
end;
if (mem > 0) then insert('1', s, 1);
s.Println;
end.