===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1
Известна сторона равностороннего треугольника найти высоту и площадь этого треугольника, в QBasic