Ответы
Ответ дал:
0
begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (2 shl i) * Ord(j >= i));
a.Println;
end.
Ответ дал:
0
или так
Ответ дал:
0
begin
var n := ReadInteger();
var a := new integer[n, n];
for var i := 0 to n - 1 do
begin
for var j := 0 to n - 1 do
begin
if i > j then a[i, j] := 0
else a[i, j] := 2 shl i;
Write(a[i, j]:4);
end;
writeln;
end
end.
var n := ReadInteger();
var a := new integer[n, n];
for var i := 0 to n - 1 do
begin
for var j := 0 to n - 1 do
begin
if i > j then a[i, j] := 0
else a[i, j] := 2 shl i;
Write(a[i, j]:4);
end;
writeln;
end
end.
Ответ дал:
0
Эти программы работают в PascalABC.NET
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад