// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Матрица А ***'); var a:=MatrRandom(4,7,-50,50); a.Println(4); Writeln('*** Матрица B ***'); var b:=MatrRandom(4,7,-50,50); b.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Матрица А-B ***'); for var i:=0 to 3 do begin for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4); Writeln end; end.
Begin
writeln('¶¶¶¶¶¶¶¶¶¶1');
writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');
writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');
writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');
writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');
writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');
writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');
writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');
writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');
writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');
writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');
writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');
writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');
writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');
writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');
writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');
writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');
writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');
writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');
writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');
writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');
writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('_¶___¶¶¶¶_¶¶¶¶');
writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');
writeln('¶¶¶¶_¶¶¶¶¶1¶¶');
writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');
writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');
writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');
writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');
writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');
writeln('¶¶¶¶¶¶¶¶¶¶_¶');
writeln('¶¶¶1¶¶¶¶¶');
writeln('¶¶1¶¶');
writeln('¶¶');
writeln('¶¶');
end.
Подробнее - на -