Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы