Alexresh62
Var A:array[1..6,1..6]of integer; i,m:integer; begin for i:=1 to 6 do A[1,i]:=1; for i:=1 to 6 do A[i,1]:=1; for i:=2 to 6 do for m:=2 to 6 do A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin for m:=1 to 6 do write(A[i,m],' '); writeln(); end; end.
Answers & Comments
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;
for i:=1 to 6 do A[i,1]:=1;
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],' ');
writeln();
end;
end.