var
a, b: integer;
res: real;
begin
write('Число a:');
readln(a);
write('Число b:');
readln(b);
res :=(a+b)/(a-b);
writeln('Результат:', res:2:3);
end.
В 2-ой - 110000010
в 8 - ой - 602
<span>в 16 - ой - 182</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) - вызывает аварийное завершение программы по переполнению стека из-за большой глубины рекурсии.