var
a: array[1..6, 1..6] of integer;
begin
for var i := 1 to 6 do
for var j := 1 to 6 do
if (i = 1) or (j = 1) then a[i, j] := 1
else a[i, j] := a[i, j - 1] + a[i - 1, j];
write(a[i, j]:4, ' ')
end;
writeln;
end
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a: array[1..6, 1..6] of integer;
begin
for var i := 1 to 6 do
begin
for var j := 1 to 6 do
begin
if (i = 1) or (j = 1) then a[i, j] := 1
else a[i, j] := a[i, j - 1] + a[i - 1, j];
write(a[i, j]:4, ' ')
end;
writeln;
end
end.