Ну мне кажется иут ответ 2
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.
Правильный ответ: Г) <span>2,3,5,6,7,9,10,15,21,27</span>
// PascalABC.NET 3.0, сборка 1076
function ak(n,m:integer):longint;
begin
if n=0 then ak:=m+1
else
if m=0 then ak:=ak(n-1,1)
else ak:=ak(n-1,ak(n,m-1))
end;
begin
Writeln('A(3,3)=',ak(3,3))
end.
<em><u>Тестовое решение:</u></em>
A(3,3)=61
А(4,1) - вызывает аварийное завершение программы по переполнению стека из-за большой глубины рекурсии.